From 8f0109b7c86d42d7a37cbb337602f127aaf5421c Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Tue, 1 May 2001 23:24:50 +0000
Subject: [PATCH] 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

---
 C4/Accounts2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/C4/Accounts2.pm b/C4/Accounts2.pm
index 7acd14c07f..81d8d89185 100755
--- a/C4/Accounts2.pm
+++ b/C4/Accounts2.pm
@@ -196,7 +196,8 @@ sub returnlost{
   my $sth=$dbh->prepare($upiss);
   $sth->execute;
   $sth->finish;
-  my $date='2001-04-18';
+  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'";
   $sth=$dbh->prepare($upitem);
-- 
2.39.5