From 9db328533b8f2dfc26244037a8926f9f9a5fcdfd Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Mon, 27 Jul 2015 11:16:56 -0400 Subject: [PATCH] Bug 14598: (QA followup) Don't die on bad barcode Signed-off-by: Tomas Cohen Arazi --- C4/Circulation.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index d7cda99..b8244fb 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -1751,14 +1751,14 @@ sub AddReturn { my $stat_type = 'return'; # get information on item - my $item = GetItem( undef, $barcode ) - or die "GetItem( undef, $barcode ) failed"; + my $item = GetItem( undef, $barcode ); + unless ($item) { + return ( 0, { BadBarcode => $barcode } ); # no barcode means no item or borrower. bail out. + } + my $itemnumber = $item->{ itemnumber }; my $itemtype = $item->{ itype }; - unless ($itemnumber) { - return (0, { BadBarcode => $barcode }); # no barcode means no item or borrower. bail out. - } my $issue = GetItemIssue($itemnumber); if ($issue and $issue->{borrowernumber}) { $borrower = C4::Members::GetMemberDetails($issue->{borrowernumber}) -- 2.4.6