bugfixing of the itemtypes infos in branchreserves,currenttransfers,waitingreservestr...

diff --git a/circ/branchreserves.pl b/circ/branchreserves.pl
index cae4210..be67842 100755 (executable)
--- a/circ/branchreserves.pl
+++ b/circ/branchreserves.pl
@@ -30,6 +30,7 @@ use C4::Circulation::Circ2;
 use Date::Manip;
 use C4::Reserves2;
 use C4::Search;
+use C4::Koha;
 
 my $input = new CGI;
 
@@ -103,6 +104,7 @@ foreach my $num (@getreserves) {
        my %env;
        my $gettitle = getiteminformation(\%env,$num->{'itemnumber'});
        my $getborrower = getpatroninformation (\%env,$num->{'borrowernumber'});
+       my $itemtypeinfo = getitemtypeinfo($gettitle->{'itemtype'});
        $getreserv{'waitingdate'} = format_date($num->{'waitingdate'});
        my $calcDate=DateCalc($num->{'waitingdate'},"+".C4::Context->preference('ReservesMaxPickUpDelay')."  days");
        my $warning=Date_Cmp(ParseDate("today"),$calcDate);
@@ -113,7 +115,7 @@ foreach my $num (@getreserves) {
        $getreserv{'itemnumber'} = $gettitle->{'itemnumber'};
        $getreserv{'biblionumber'} = $gettitle->{'biblionumber'};
        $getreserv{'barcode'} = $gettitle->{'barcode'};
-#      $getreserv{'itemtype'} = ItemType($gettitle->{'itemtype'});
+       $getreserv{'itemtype'} = $itemtypeinfo->{'description'};
        $getreserv{'homebranch'} = $gettitle->{'homebranch'};
        $getreserv{'holdingbranch'} = $gettitle->{'holdingbranch'};
        if ($gettitle->{'homebranch'} ne $gettitle->{'holdingbranch'}){

diff --git a/circ/currenttransfers.pl b/circ/currenttransfers.pl
index 043280e..4f0271a 100755 (executable)
--- a/circ/currenttransfers.pl
+++ b/circ/currenttransfers.pl
@@ -78,12 +78,14 @@ foreach my $br (keys %$branches) {
                                $getransf{'messcompa'} = 1;
                        }
                        my $gettitle = getiteminformation(\%env,$num->{'itemnumber'});
+                       my $itemtypeinfo = getitemtypeinfo($gettitle->{'itemtype'});
+                       
                                $getransf{'title'} = $gettitle->{'title'};
                                $getransf{'datetransfer'} = format_date($num->{'datesent'});
                                $getransf{'biblionumber'} = $gettitle->{'biblionumber'};
                                $getransf{'itemnumber'} = $gettitle->{'itemnumber'};
                                $getransf{'barcode'} = $gettitle->{'barcode'};
-#                              $getransf{'itemtype'} = ItemType($gettitle->{'itemtype'});
+                               $getransf{'itemtype'} = $itemtypeinfo->{'description'};
                                $getransf{'homebranch'} = $gettitle->{'homebranch'};
                                $getransf{'holdingbranch'} = $gettitle->{'holdingbranch'};
                                $getransf{'itemcallnumber'} = $gettitle->{'itemcallnumber'};

diff --git a/circ/waitingreservestransfers.pl b/circ/waitingreservestransfers.pl
index 7a6faba..c5fcaf1 100755 (executable)
--- a/circ/waitingreservestransfers.pl
+++ b/circ/waitingreservestransfers.pl
@@ -74,6 +74,7 @@ foreach my $br (keys %$branches) {
                        my %getreserv;
                        my %env;
                        my $gettitle = getiteminformation(\%env,$num->{'itemnumber'});
+                       my $itemtypeinfo = getitemtypeinfo($gettitle->{'itemtype'});
                        if ($gettitle->{'holdingbranch'} eq $default){
                                my $getborrower = getpatroninformation (\%env,$num->{'borrowernumber'});
                                $getreserv{'reservedate'} = format_date($num->{'reservedate'});
@@ -86,7 +87,7 @@ foreach my $br (keys %$branches) {
                                $getreserv{'biblionumber'} = $gettitle->{'biblionumber'};
                                $getreserv{'itemnumber'} = $gettitle->{'itemnumber'};
                                $getreserv{'barcode'} = $gettitle->{'barcode'};
-#                              $getreserv{'itemtype'} = get_iteminfos_of($gettitle->{'itemtype'}->{'description'});
+                               $getreserv{'itemtype'} = $itemtypeinfo->{'description'};
                                $getreserv{'holdingbranch'} = $gettitle->{'holdingbranch'};
                                $getreserv{'itemcallnumber'} = $gettitle->{'itemcallnumber'};
                                $getreserv{'borrowernum'} = $getborrower->{'borrowernumber'};