From 4900b87b531762dde085f7cb38594b5b8730a6c6 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Tue, 23 Oct 2012 08:03:16 -0400
Subject: [PATCH] Bug 7639 - system preference to forgive fines on lost items - QA Followup

Test Plan:
 1) Apply the patch
 2) Run updatedatabase.pl
 3) Set WhenLostForgiveFine to Forgive & WhenLostChargeReplacementFee to Charge
 4) Issue an item to a borrower, then set to lost from catalogue/moredetail.pl
 5) Observe the replacement fee has been charged
 6) Return the item
 7) Observe the charged fee has been forgiven
 8) Set WhenLostForgiveFine to Don't Forgive
 9) Repeat 4-6
10) Observe the charged fee has not been forgiven
11) Set WhenLostChargeReplacementFee to Don't Charge
12) Repeat 4
13) Observe that a fee was not charged
---
 cataloguing/additem.pl |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
index 49893d6..62ca87e 100755
--- a/cataloguing/additem.pl
+++ b/cataloguing/additem.pl
@@ -607,7 +607,10 @@ 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