bug 3435 followup: tweak AddReturn cleanup
authorGalen Charlton <galen.charlton@liblime.com>
Thu, 30 Jul 2009 15:27:22 +0000 (11:27 -0400)
committerHenri-Damien LAURENT <henridamien.laurent@biblibre.com>
Wed, 12 Aug 2009 11:53:40 +0000 (13:53 +0200)
We're returning issue information when available,
not just item information.  Fixes problem where
circ/returns.pl wasn't displaying the due date
and patron when returning a loan.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
C4/Circulation.pm

index 745cedd..d082002 100644 (file)
@@ -1524,8 +1524,10 @@ sub AddReturn {
     }
 
     # fix up the overdues in accounts...
-    my $fix = _FixOverduesOnReturn($borrowernumber, $item->{itemnumber}, $exemptfine, $dropbox);
-    defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $item->{itemnumber}...) failed!";  # zero is OK, check defined
+    if ($borrowernumber) {
+        my $fix = _FixOverduesOnReturn($borrowernumber, $item->{itemnumber}, $exemptfine, $dropbox);
+        defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $item->{itemnumber}...) failed!";  # zero is OK, check defined
+    }
 
     # find reserves.....
     # if we don't have a reserve with the status W, we launch the Checkreserves routine
@@ -1581,7 +1583,7 @@ sub AddReturn {
             $messages->{'NeedsTransfer'} = 1;   # TODO: instead of 1, specify branchcode that the transfer SHOULD go to, $item->{homebranch}
         }
     }
-    return ( $doreturn, $messages, $item, $borrower );
+    return ( $doreturn, $messages, $issue, $borrower );
 }
 
 =head2 MarkIssueReturned