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

[Ryan Higgins]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Ryan Higgins <rych>	07/01/25 05:44:29

Modified files:
	circ           : circulation.pl 

Log message:
	removing some warns

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.81.2.14.2.13&r2=1.81.2.14.2.14

Patches:
Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.81.2.14.2.13
retrieving revision 1.81.2.14.2.14
diff -u -b -r1.81.2.14.2.13 -r1.81.2.14.2.14
--- circulation.pl	5 Jan 2007 15:50:26 -0000	1.81.2.14.2.13
+++ circulation.pl	25 Jan 2007 05:44:29 -0000	1.81.2.14.2.14
@@ -223,13 +223,13 @@
 	#warn "before getissues";
 	#warn Dumper($borrower);
 	my $issueslist = getissues($borrower);
-	use Data::Dumper;
-	warn "ISSUESLIST";
-	warn Dumper($issueslist);
+#	use Data::Dumper;
+#	warn "ISSUESLIST";
+#	warn Dumper($issueslist);
 	# split in 2 arrays for today & previous
 	foreach my $it (keys %$issueslist) {
 		my $issuedate = $issueslist->{$it}->{'timestamp'};
-		warn "ISSUEDATE".$issuedate;
+#		warn "ISSUEDATE".$issuedate;
 		$issuedate =~ s/-//g;
 		$issuedate = substr($issuedate, 0, 8);
 		# to let perl sort this correctly