|
Lines 2120-2135
sub AddReturn {
Link Here
|
| 2120 |
if C4::Context->preference("ReturnLog"); |
2120 |
if C4::Context->preference("ReturnLog"); |
| 2121 |
} |
2121 |
} |
| 2122 |
|
2122 |
|
| 2123 |
# Remove any OVERDUES related debarment if the borrower has no overdues |
|
|
| 2124 |
if ( $borrowernumber |
| 2125 |
&& $patron->debarred |
| 2126 |
&& C4::Context->preference('AutoRemoveOverduesRestrictions') |
| 2127 |
&& !Koha::Patrons->find( $borrowernumber )->has_overdues |
| 2128 |
&& @{ GetDebarments({ borrowernumber => $borrowernumber, type => 'OVERDUES' }) } |
| 2129 |
) { |
| 2130 |
DelUniqueDebarment({ borrowernumber => $borrowernumber, type => 'OVERDUES' }); |
| 2131 |
} |
| 2132 |
|
| 2133 |
# Transfer to returnbranch if Automatic transfer set or append message NeedsTransfer |
2123 |
# 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'}){ |
2124 |
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'; |
2125 |
my $BranchTransferLimitsType = C4::Context->preference("BranchTransferLimitsType") eq 'itemtype' ? 'effective_itemtype' : 'ccode'; |
| 2136 |
- |
|
|