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'";
