[Koha-patches] [PATCH] (bug #3781) fix lost items and return

Nahuel ANGELINETTI nahuel.angelinetti at biblibre.com
Tue Nov 10 14:05:08 CET 2009


this fix informations needed to update lost status of lost document returned.
---
 C4/Circulation.pm |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index 2733f8c..27ce9d7 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -1379,7 +1379,6 @@ sub AddReturn {
     # get information on item
     my $itemnumber = GetItemnumberFromBarcode($barcode);
     my $iteminformation = GetItemIssue( $itemnumber );
-    my $biblio = GetBiblioItemData($iteminformation->{'biblioitemnumber'});
 #     use Data::Dumper;warn Data::Dumper::Dumper($iteminformation);  
     unless ( $iteminformation->{'itemnumber'} or $itemnumber) {
         $messages->{'BadBarcode'} = $barcode;
@@ -1394,9 +1393,11 @@ sub AddReturn {
         # even though item is not on loan, it may still
         # be transferred; therefore, get current branch information
         my $curr_iteminfo = GetItem($itemnumber);
+        $iteminformation->{'itemnumber'} = $curr_iteminfo->{'itemnumber'};
         $iteminformation->{'homebranch'} = $curr_iteminfo->{'homebranch'};
         $iteminformation->{'holdingbranch'} = $curr_iteminfo->{'holdingbranch'};
         $iteminformation->{'itemlost'} = $curr_iteminfo->{'itemlost'};
+        my $biblio = GetBiblioItemData($curr_iteminfo->{'biblioitemnumber'});
         
         # check if the book is in a permanent collection....
         my $hbr      = $iteminformation->{C4::Context->preference("HomeOrHoldingBranch")};
@@ -1477,6 +1478,8 @@ sub AddReturn {
         # fix up the accounts.....
         if ($iteminformation->{'itemlost'}) {
                 FixAccountForLostAndReturned($iteminformation, $borrower);
+                warn $biblio->{'biblionumber'};
+                warn $iteminformation->{'itemnumber'};
                 ModItem({ itemlost => '0' }, $biblio->{'biblionumber'}, $iteminformation->{'itemnumber'});
                 $messages->{'WasLost'} = 1;
         }
-- 
1.6.3.3




More information about the Koha-patches mailing list