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

[Waylon Robertson]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Waylon Robertson <genji>	07/01/29 09:28:08

Modified files:
	circ           : circulation.pl 

Log message:
	removed warnings

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.81.2.18&r2=1.81.2.19

Patches:
Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.81.2.18
retrieving revision 1.81.2.19
diff -u -b -r1.81.2.18 -r1.81.2.19
--- circulation.pl	28 Jan 2007 21:01:36 -0000	1.81.2.18
+++ circulation.pl	29 Jan 2007 09:28:07 -0000	1.81.2.19
@@ -85,9 +85,7 @@
 
 my @datearr = localtime(time());
 # FIXME - Could just use POSIX::strftime("%Y%m%d", localtime);
-my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).sprintf ("%0.2d", ($datearr[3]));
-warn $todaysdate;
-
+my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).sprintf ("%0.2d", ($datearr[3]))
 # check and see if we should print
  if ($barcode eq ''  && $print eq 'maybe'){
  	$print = 'yes';
@@ -201,7 +199,6 @@
 		my $issuedate = $issueslist->{$it}->{'timestamp'};
 		$issuedate = substr($issuedate, 0, 10);
 		$issuedate=~s/-//g;
-		warn $issuedate;
 		if ($todaysdate == $issuedate) {
 			push @todaysissues, $issueslist->{$it};
 		} else {