Attachment 15089 Details for Bug 7639 – Bug 7639 - system preference to forgive fines on lost items - QA Followup

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

Bug-7639---system-preference-to-forgive-fines-on-l.patch (text/plain), 977 bytes, created by Kyle M Hall (khall) on 2013-02-06 12:38:29 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2013-02-06 12:38:29 UTC

Size: 977 bytes

patch

obsolete

>From 098563e4bf2f8755a66d401fe8f357dc80a665d6 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
>
>---
> cataloguing/additem.pl |    5 ++++-
> 1 files changed, 4 insertions(+), 1 deletions(-)
>
>diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
>index 932120c..920049a 100755
>--- a/cataloguing/additem.pl
>+++ b/cataloguing/additem.pl
>@@ -599,7 +599,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

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