[Koha-devel] CVS: koha/C4 Accounts2.pm,1.4,1.5

[Chris Cormack]

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