Lines 1515-1521
sub AddReturn {
Link Here
|
1515 |
my $biblio; |
1515 |
my $biblio; |
1516 |
my $doreturn = 1; |
1516 |
my $doreturn = 1; |
1517 |
my $validTransfert = 0; |
1517 |
my $validTransfert = 0; |
1518 |
|
1518 |
my $stat_type = 'return'; |
|
|
1519 |
|
1519 |
# get information on item |
1520 |
# get information on item |
1520 |
my $itemnumber = GetItemnumberFromBarcode( $barcode ); |
1521 |
my $itemnumber = GetItemnumberFromBarcode( $barcode ); |
1521 |
unless ($itemnumber) { |
1522 |
unless ($itemnumber) { |
Lines 1532-1537
sub AddReturn {
Link Here
|
1532 |
# even though item is not on loan, it may still be transferred; therefore, get current branch info |
1533 |
# even though item is not on loan, it may still be transferred; therefore, get current branch info |
1533 |
$doreturn = 0; |
1534 |
$doreturn = 0; |
1534 |
# No issue, no borrowernumber. ONLY if $doreturn, *might* you have a $borrower later. |
1535 |
# No issue, no borrowernumber. ONLY if $doreturn, *might* you have a $borrower later. |
|
|
1536 |
# Record this as a local use, instead of a return, if the RecordLocalUseOnReturn is on |
1537 |
if (C4::Context->preference("RecordLocalUseOnReturn")) { |
1538 |
$messages->{'LocalUse'} = 1; |
1539 |
$stat_type = 'localuse'; |
1540 |
} |
1535 |
} |
1541 |
} |
1536 |
|
1542 |
|
1537 |
my $item = GetItem($itemnumber) or die "GetItem($itemnumber) failed"; |
1543 |
my $item = GetItem($itemnumber) or die "GetItem($itemnumber) failed"; |
Lines 1639-1645
sub AddReturn {
Link Here
|
1639 |
# update stats? |
1645 |
# update stats? |
1640 |
# Record the fact that this book was returned. |
1646 |
# Record the fact that this book was returned. |
1641 |
UpdateStats( |
1647 |
UpdateStats( |
1642 |
$branch, 'return', '0', '', |
1648 |
$branch, $stat_type, '0', '', |
1643 |
$item->{'itemnumber'}, |
1649 |
$item->{'itemnumber'}, |
1644 |
$biblio->{'itemtype'}, |
1650 |
$biblio->{'itemtype'}, |
1645 |
$borrowernumber |
1651 |
$borrowernumber |