|
Lines 60-65
use Koha::Account::Offsets;
Link Here
|
| 60 |
use Koha::Config::SysPrefs; |
60 |
use Koha::Config::SysPrefs; |
| 61 |
use Koha::Charges::Fees; |
61 |
use Koha::Charges::Fees; |
| 62 |
use Koha::Util::SystemPreferences; |
62 |
use Koha::Util::SystemPreferences; |
|
|
63 |
use Koha::Checkouts::ReturnClaims; |
| 63 |
use Carp; |
64 |
use Carp; |
| 64 |
use List::MoreUtils qw( uniq any ); |
65 |
use List::MoreUtils qw( uniq any ); |
| 65 |
use Scalar::Util qw( looks_like_number ); |
66 |
use Scalar::Util qw( looks_like_number ); |
|
Lines 2120-2125
sub AddReturn {
Link Here
|
| 2120 |
} |
2121 |
} |
| 2121 |
} |
2122 |
} |
| 2122 |
|
2123 |
|
|
|
2124 |
if ( C4::Context->preference('ClaimReturnedLostValue') ) { |
| 2125 |
my $claims = Koha::Checkouts::ReturnClaims->search( |
| 2126 |
{ |
| 2127 |
itemnumber => $item->id, |
| 2128 |
resolution => undef, |
| 2129 |
} |
| 2130 |
); |
| 2131 |
|
| 2132 |
if ( $claims->count ) { |
| 2133 |
$messages->{ReturnClaims} = $claims; |
| 2134 |
} |
| 2135 |
} |
| 2136 |
|
| 2123 |
return ( $doreturn, $messages, $issue, ( $patron ? $patron->unblessed : {} )); |
2137 |
return ( $doreturn, $messages, $issue, ( $patron ? $patron->unblessed : {} )); |
| 2124 |
} |
2138 |
} |
| 2125 |
|
2139 |
|