[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.21.2.1,1.21.2.2

[Steve Tonnesen]

Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv20388

Modified Files:
      Tag: rel-1-2
        Circ2.pm 
Log Message:
Modification to date sprintf line fixes problem with current issues
showing up as previous issues.


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.21.2.1
retrieving revision 1.21.2.2
diff -C2 -r1.21.2.1 -r1.21.2.2
*** Circ2.pm    18 May 2002 10:21:51 -0000      1.21.2.1
--- Circ2.pm    24 Jun 2002 22:08:20 -0000      1.21.2.2
***************
*** 683,686 ****
--- 683,687 ----
        my @datearr = localtime(time());
        my $today = (1900+$datearr[5]).sprintf "%02d", ($datearr[4]+1).sprintf 
"%02d", $datearr[3];
+       $today=sprintf "%4d%02d%02d", (1900+$datearr[5]), ($datearr[4]+1), 
$datearr[3];
        $crit=" and issues.timestamp like '$today%' ";
      }
***************
*** 688,691 ****
--- 689,693 ----
        my @datearr = localtime(time());
        my $today = (1900+$datearr[5]).sprintf "%02d", ($datearr[4]+1).sprintf 
"%02d", $datearr[3];
+       $today=sprintf "%4d%02d%02d", (1900+$datearr[5]), ($datearr[4]+1), 
$datearr[3];
        $crit=" and !(issues.timestamp like '$today%') ";
      }