Attachment 20437 Details for Bug 7639 – [PASSED QA] Bug 7639 - system preference to forgive fines on lost items - QA Followup

[patch] [PASSED QA] Bug 7639 - system preference to forgive fines on lost items - QA Followup

PASSED-QA-Bug-7639---system-preference-to-forgive-.patch (text/plain), 1.60 KB, created by Katrin Fischer on 2013-08-18 15:44:55 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Katrin Fischer

Created: 2013-08-18 15:44:55 UTC

Size: 1.60 KB

patch

obsolete

>From 6803c22874b6857b8a43af968f8caa1df49123fc 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] [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 <alexh@cctexas.com>
>Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
>---
> 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

Actions: View | Diff | Splinter Review

Attachments on bug 7639: 9281 | 9282 | 9436 | 10662 | 10663 | 13006 | 13007 | 14961 | 14962 | 15088 | 15089 | 16593 | 16607 | 16608 | 16609 | 16729 | 16730 | 16731 | 18929 | 18930 | 18932 | 18964 | 18965 | 18966 | 19654 | 19655 | 19656 | 19657 | 20436 | 20437 | 20438 | 20439 | 20456 | 20487