[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