[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} = \@resloop ;	
 		push  @reservedata, \%reserve ;