[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;