From 5c4a2c3e4b754fd2d0587e0f31cb4d13d75356b7 Mon Sep 17 00:00:00 2001
From: alaurin <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