Lines 44-49
use Koha::Biblioitems;
Link Here
|
44 |
use Koha::DateUtils; |
44 |
use Koha::DateUtils; |
45 |
use Koha::Calendar; |
45 |
use Koha::Calendar; |
46 |
use Koha::Checkouts; |
46 |
use Koha::Checkouts; |
|
|
47 |
use Koha::Illrequests; |
47 |
use Koha::Items; |
48 |
use Koha::Items; |
48 |
use Koha::Patrons; |
49 |
use Koha::Patrons; |
49 |
use Koha::Patron::Debarments; |
50 |
use Koha::Patron::Debarments; |
Lines 2130-2135
sub AddReturn {
Link Here
|
2130 |
DelUniqueDebarment({ borrowernumber => $borrowernumber, type => 'OVERDUES' }); |
2131 |
DelUniqueDebarment({ borrowernumber => $borrowernumber, type => 'OVERDUES' }); |
2131 |
} |
2132 |
} |
2132 |
|
2133 |
|
|
|
2134 |
# Check if this item belongs to a biblio record that is attached to an |
2135 |
# ILL request, if it is we need to update the ILL request's status |
2136 |
if (C4::Context->preference('CirculateILL')) { |
2137 |
my $request = Koha::Illrequests->find( |
2138 |
{ biblio_id => $item->biblio->biblionumber } |
2139 |
); |
2140 |
$request->status('RET') if $request; |
2141 |
} |
2142 |
|
2133 |
# Transfer to returnbranch if Automatic transfer set or append message NeedsTransfer |
2143 |
# Transfer to returnbranch if Automatic transfer set or append message NeedsTransfer |
2134 |
if (!$is_in_rotating_collection && ($doreturn or $messages->{'NotIssued'}) and !$resfound and ($branch ne $returnbranch) and not $messages->{'WrongTransfer'}){ |
2144 |
if (!$is_in_rotating_collection && ($doreturn or $messages->{'NotIssued'}) and !$resfound and ($branch ne $returnbranch) and not $messages->{'WrongTransfer'}){ |
2135 |
my $BranchTransferLimitsType = C4::Context->preference("BranchTransferLimitsType") eq 'itemtype' ? 'effective_itemtype' : 'ccode'; |
2145 |
my $BranchTransferLimitsType = C4::Context->preference("BranchTransferLimitsType") eq 'itemtype' ? 'effective_itemtype' : 'ccode'; |