Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv9702/C4 Modified Files: Accounts2.pm Log Message: Fixed a bug in the return lost routine (when a payment is made on a lost item) So that the correct date was being recorded Index: Accounts2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Accounts2.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -r1.4 -r1.5 *** Accounts2.pm 2001/04/18 02:51:18 1.4 --- Accounts2.pm 2001/05/01 23:24:50 1.5 *************** *** 197,201 **** $sth->execute; $sth->finish; ! my $date='2001-04-18'; my $bor="$borrower->{'firstname'} $borrower->{'surname'} $borrower->{'cardnumber'}"; my $upitem="Update items set itemnotes='Paid for by $bor $date' where itemnumber='$itemnum'"; --- 197,202 ---- $sth->execute; $sth->finish; ! my @datearr = localtime($time); ! my $date = (1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3]; my $bor="$borrower->{'firstname'} $borrower->{'surname'} $borrower->{'cardnumber'}"; my $upitem="Update items set itemnotes='Paid for by $bor $date' where itemnumber='$itemnum'";