From b1e6aadf56fa8036eb9dc9e55b4bb6a50e5d26a8 Mon Sep 17 00:00:00 2001 From: D Ruth Bavousett Date: Tue, 4 Oct 2011 07:37:33 -0700 Subject: [PATCH] Bug 6867: Date last seen ignored on import The date last seen field (952 $r) and replacement price date (952 $w) were being ignored on import, being replaced with NOW() as a hardcoded value. This patch will allow a value to be imported, but if none is, it will use the ISO date of import as a default. Signed-off-by: Nicole C. Engard Signed-off-by: Ian Walls Signed-off-by: Chris Cormack --- C4/Items.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/C4/Items.pm b/C4/Items.pm index bc36dd14ba..69557aabdf 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -1971,9 +1971,9 @@ sub _koha_new_item { homebranch = ?, price = ?, replacementprice = ?, - replacementpricedate = NOW(), + replacementpricedate = ?, datelastborrowed = ?, - datelastseen = NOW(), + datelastseen = ?, stack = ?, notforloan = ?, damaged = ?, @@ -2002,6 +2002,7 @@ sub _koha_new_item { stocknumber = ? "; my $sth = $dbh->prepare($query); + my $today = C4::Dates->today('iso'); $sth->execute( $item->{'biblionumber'}, $item->{'biblioitemnumber'}, @@ -2011,7 +2012,9 @@ sub _koha_new_item { $item->{'homebranch'}, $item->{'price'}, $item->{'replacementprice'}, + $item->{'replacementpricedate'} || $today, $item->{datelastborrowed}, + $item->{datelastseen} || $today, $item->{stack}, $item->{'notforloan'}, $item->{'damaged'}, -- 2.39.5