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;