From a3798d584a567fa5e2285d6498e5a4cf2dfc9354 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 23 Oct 2012 08:03:16 -0400 Subject: [PATCH] Bug 7639 - system preference to forgive fines on lost items - QA Followup Content-Type: text/plain; charset="utf-8" --- cataloguing/additem.pl | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index 72179be..f7bd95f 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -599,7 +599,8 @@ if ($op eq "additem") { } my $item = GetItem( $itemnumber ); my $olditemlost = $item->{'itemlost'}; - my $newitemlost = $itemtosave->subfield('952','1'); + my ($lost_tag,$lost_subfield) = GetMarcFromKohaField("items.itemlost",''); + my $newitemlost = $itemtosave->subfield( $lost_tag, $lost_subfield ); if (($olditemlost eq '0' or $olditemlost eq '' ) and $newitemlost ge '1'){ LostItem($itemnumber,'MARK RETURNED'); } -- 1.7.2.5