From 087f31062db901309752d820b4eb4deea00a410f Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 14 Mar 2008 16:39:46 -0500 Subject: [PATCH] fix initiation of transfer on return of non-issued item Signed-off-by: Joshua Ferraro --- C4/Circulation.pm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 11e321076b..1cd8202900 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -1165,6 +1165,11 @@ sub AddReturn { # find the borrower if ( ( not $iteminformation->{borrowernumber} ) && $doreturn ) { $messages->{'NotIssued'} = $barcode; + # even though item is not on loan, it may still + # be transferred; therefore, get current branch information + my $curr_iteminfo = GetItem($iteminformation->{'itemnumber'}); + $iteminformation->{'homebranch'} = $curr_iteminfo->{'homebranch'}; + $iteminformation->{'holdingbranch'} = $curr_iteminfo->{'holdingbranch'}; $doreturn = 0; } -- 2.39.5