# new op dev
# now we show the status of the borrower's reservations
- my @borrowerreserv = GetReservesFromBorrowernumber$borrowernumber );
+ my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber );
my @reservloop;
my @WaitingReserveLoop;
my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} );
# use Data::Dumper;
# warn Dumper($gettitle);
- warn "ITEM : ".$gettitle->{'title'};
my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} );
if ( $gettitle->{'holdingbranch'} eq $default ) {
my $getborrower =
$getreserv{'borrowermail'} = $getborrower->{'emailaddress'};
$getreserv{'borrowerphone'} = $getborrower->{'phone'};
push( @reservloop, \%getreserv );
- warn "=".$getreserv{'title'}.">>".$gettitle->{'title'};
}
}
# Suite 330, Boston, MA 02111-1307 USA
use strict;
+use CGI;
use C4::Context;
use C4::Output;
-use CGI;
use C4::Branch; # GetBranchName
use C4::Auth;
use C4::Date;
);
use C4::Reserves;
use C4::Koha;
-use C4::Interface::CGI::Output;
+# use C4::Interface::CGI::Output;
my $input = new CGI;