[Koha-devel] CVS: koha/C4/Circulation Circ2.pm,1.16,1.17

[Steve Tonnesen]

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

Modified Files:
        Circ2.pm 
Log Message:
Added an overdue variable to the itemdata returned by the currentissues
subroutine.  This makes it easier to pick out overdue items in other
modules (ie circulation, reports, etc.)


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** Circ2.pm    2001/05/02 21:15:22     1.16
--- Circ2.pm    2001/05/02 22:38:26     1.17
***************
*** 636,640 ****
--- 636,647 ----
        $data->{'dewey'}=~s/0*$//;
        ($data->{'dewey'} == 0) && ($data->{'dewey'}='');
+       my @datearr = localtime(time());
+       my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]
+       +1)).sprintf ("%0.2d", $datearr[3]);
        my $datedue=$data->{'date_due'};
+       $datedue=~s/-//g;
+       if ($datedue < $todaysdate) {
+           $data->{'overdue'}=1;
+       }
        my $itemnumber=$data->{'itemnumber'};
        $currentissues{$counter}=$data;