Attachment 13007 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), 1012 bytes, created by Kyle M Hall (khall) on 2012-10-23 12:02:54 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2012-10-23 12:02:54 UTC

Size: 1012 bytes

patch

obsolete

>From a3798d584a567fa5e2285d6498e5a4cf2dfc9354 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
>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

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