From 6803c22874b6857b8a43af968f8caa1df49123fc Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 23 Oct 2012 08:03:16 -0400 Subject: [PATCH] [PASSED QA] 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 Signed-off-by: Alex Hatley Signed-off-by: Katrin Fischer --- cataloguing/additem.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index 2c9b1c7..0893f23 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -609,7 +609,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.9.5