From 5c4a2c3e4b754fd2d0587e0f31cb4d13d75356b7 Mon Sep 17 00:00:00 2001 From: alaurin Date: Fri, 4 May 2007 10:18:00 +0000 Subject: [PATCH] bugfixing for circulation. --- circ/circulation.pl | 2 +- circ/transferstodo.pl | 2 -- circ/transferstoreceive.pl | 2 +- circ/waitingreserves.pl | 4 ++-- 4 files changed, 4 insertions(+), 6 deletions(-) diff --git a/circ/circulation.pl b/circ/circulation.pl index 6b3ec94dcb..38bd6ff113 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -266,7 +266,7 @@ if ($borrowernumber) { # 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; diff --git a/circ/transferstodo.pl b/circ/transferstodo.pl index c34b6d6343..ba6b80aa18 100755 --- a/circ/transferstodo.pl +++ b/circ/transferstodo.pl @@ -85,7 +85,6 @@ foreach my $br ( keys %$branches ) { 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 = @@ -118,7 +117,6 @@ foreach my $br ( keys %$branches ) { $getreserv{'borrowermail'} = $getborrower->{'emailaddress'}; $getreserv{'borrowerphone'} = $getborrower->{'phone'}; push( @reservloop, \%getreserv ); - warn "=".$getreserv{'title'}.">>".$gettitle->{'title'}; } } diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl index 547321e86a..9289eb0f5e 100644 --- a/circ/transferstoreceive.pl +++ b/circ/transferstoreceive.pl @@ -29,7 +29,7 @@ use C4::Date; use C4::Biblio; use C4::Circulation; use C4::Members; -use C4::Interface::CGI::Output; +#use C4::Interface::CGI::Output; use Date::Calc qw( Today Add_Delta_Days diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl index 509a6f5f2b..fea193529c 100755 --- a/circ/waitingreserves.pl +++ b/circ/waitingreserves.pl @@ -20,9 +20,9 @@ # 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; @@ -37,7 +37,7 @@ use Date::Calc qw( ); use C4::Reserves; use C4::Koha; -use C4::Interface::CGI::Output; +# use C4::Interface::CGI::Output; my $input = new CGI; -- 2.39.5