[Koha-cvs] CVS: koha/circ returns.pl,1.13.2.7,1.13.2.8

[Finlay Thompson]

Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv588

Modified Files:
      Tag: rel-1-2
        returns.pl 
Log Message:

Changed the date on the reserves print slip to show the mday not mday+1


Index: returns.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/returns.pl,v
retrieving revision 1.13.2.7
retrieving revision 1.13.2.8
diff -C2 -r1.13.2.7 -r1.13.2.8
*** returns.pl  29 Oct 2002 19:46:05 -0000      1.13.2.7
--- returns.pl  31 Oct 2002 22:10:02 -0000      1.13.2.8
***************
*** 220,224 ****
      if ($res->{'ResFound'} eq "Reserved") {
        my @da = localtime(time());
!       my $todaysdate = sprintf ("%0.2d", ($da[3]+1))."/".sprintf ("%0.2d", 
($da[4]+1))."/".($da[5]+1900);
        my $slip =  <<"EOF";
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
--- 220,224 ----
      if ($res->{'ResFound'} eq "Reserved") {
        my @da = localtime(time());
!       my $todaysdate = sprintf ("%0.2d", ($da[3]))."/".sprintf ("%0.2d", 
($da[4]+1))."/".($da[5]+1900);
        my $slip =  <<"EOF";
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~