[Koha-cvs] koha/circ reserve.pl [dev_week]

[Ryan Higgins]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Ryan Higgins <rych>     07/01/11 06:50:11

Modified files:
        circ           : reserve.pl 

Log message:
        remove warns

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/reserve.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.6.2.3&r2=1.1.2.6.2.4

Patches:
Index: reserve.pl
===================================================================
RCS file: /sources/koha/koha/circ/reserve.pl,v
retrieving revision 1.1.2.6.2.3
retrieving revision 1.1.2.6.2.4
diff -u -b -r1.1.2.6.2.3 -r1.1.2.6.2.4
--- reserve.pl  11 Jan 2007 06:47:32 -0000      1.1.2.6.2.3
+++ reserve.pl  11 Jan 2007 06:50:11 -0000      1.1.2.6.2.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: reserve.pl,v 1.1.2.6.2.3 2007/01/11 06:47:32 rych Exp $
+# $Id: reserve.pl,v 1.1.2.6.2.4 2007/01/11 06:50:11 rych Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -100,10 +100,8 @@
        my %reserve = ( biblionumber => $bibnum,  title => $title, author 
=>$author, numreserves =>$numreserves , notes => $notes );
        my @resloop;
        while ( my $res = $sthItems->fetchrow_hashref()) {
-               warn "Bib: ($bibnum,$numreserves) - $res->{barcode} ";
                push  @resloop, $res ;
        }       
-       warn scalar @resloop ;
        if (scalar @resloop > 0) { 
                $reserve{iteminfo} = address@hidden ;   
                push  @reservedata, \%reserve ;