[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