[Koha-cvs] koha/circ branchreserves.pl [rel_3_0]

[LAURIN arnaud]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     LAURIN arnaud <alaurin> 06/11/22 15:15:12

Modified files:
        circ           : branchreserves.pl 

Log message:
        minor bugfixing :
        
        remove data::Dumper, and test variable ...

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchreserves.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2.2.7&r2=1.2.2.8

Patches:
Index: branchreserves.pl
===================================================================
RCS file: /sources/koha/koha/circ/branchreserves.pl,v
retrieving revision 1.2.2.7
retrieving revision 1.2.2.8
diff -u -b -r1.2.2.7 -r1.2.2.8
--- branchreserves.pl   21 Nov 2006 10:45:54 -0000      1.2.2.7
+++ branchreserves.pl   22 Nov 2006 15:15:12 -0000      1.2.2.8
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: branchreserves.pl,v 1.2.2.7 2006/11/21 10:45:54 toins Exp $
+# $Id: branchreserves.pl,v 1.2.2.8 2006/11/22 15:15:12 alaurin Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -110,12 +110,8 @@
 }
 
 my @reservloop;
-warn $default;
-$default = "TEST";
 
 my @getreserves = GetReservesForBranch($default);
-use Data::Dumper;
-warn "reserves=>" . Dumper(@getreserves);
 
 foreach my $num (@getreserves) {
     my %getreserv;