Lines 1806-1822
sub AddReturn {
Link Here
|
1806 |
my $stat_type = 'return'; |
1806 |
my $stat_type = 'return'; |
1807 |
|
1807 |
|
1808 |
# get information on item |
1808 |
# get information on item |
1809 |
my $item = GetItem( undef, $barcode ) |
1809 |
my $item = GetItem( undef, $barcode ); |
1810 |
or die "GetItem( undef, $barcode ) failed"; |
1810 |
unless ($item) { |
|
|
1811 |
return ( 0, { BadBarcode => $barcode } ); # no barcode means no item or borrower. bail out. |
1812 |
} |
1813 |
|
1811 |
my $itemnumber = $item->{ itemnumber }; |
1814 |
my $itemnumber = $item->{ itemnumber }; |
1812 |
my $biblio = GetBiblioData( $item->{ biblionumber } ); |
1815 |
my $biblio = GetBiblioData( $item->{ biblionumber } ); |
1813 |
my $itemtype = ( C4::Context->preference("item-level_itypes") ) |
1816 |
my $itemtype = ( C4::Context->preference("item-level_itypes") ) |
1814 |
? $item->{ itype } |
1817 |
? $item->{ itype } |
1815 |
: $biblio->{ itemtype }; |
1818 |
: $biblio->{ itemtype }; |
1816 |
|
1819 |
|
1817 |
unless ($itemnumber) { |
|
|
1818 |
return (0, { BadBarcode => $barcode }); # no barcode means no item or borrower. bail out. |
1819 |
} |
1820 |
my $issue = GetItemIssue($itemnumber); |
1820 |
my $issue = GetItemIssue($itemnumber); |
1821 |
if ($issue and $issue->{borrowernumber}) { |
1821 |
if ($issue and $issue->{borrowernumber}) { |
1822 |
$borrower = C4::Members::GetMemberDetails($issue->{borrowernumber}) |
1822 |
$borrower = C4::Members::GetMemberDetails($issue->{borrowernumber}) |
1823 |
- |
|
|