|
Lines 224-230
sub CalcFine {
Link Here
|
| 224 |
|
224 |
|
| 225 |
# Call the plugin hook overwrite_calc_fine of all plugins and return |
225 |
# Call the plugin hook overwrite_calc_fine of all plugins and return |
| 226 |
# the first defined fine. |
226 |
# the first defined fine. |
| 227 |
my @fines = Koha::Plugins->call( |
227 |
my @fines = grep { defined $_ } Koha::Plugins->call( |
| 228 |
'overwrite_calc_fine', |
228 |
'overwrite_calc_fine', |
| 229 |
{ |
229 |
{ |
| 230 |
itemnumber => $item->{itemnumber}, |
230 |
itemnumber => $item->{itemnumber}, |
|
Lines 234-242
sub CalcFine {
Link Here
|
| 234 |
end_date => $end_date, |
234 |
end_date => $end_date, |
| 235 |
} |
235 |
} |
| 236 |
); |
236 |
); |
| 237 |
foreach my $fine (@fines) { |
237 |
|
| 238 |
return @$fine if ( defined $fine ); |
238 |
return @{ $fines[0] } |
| 239 |
} |
239 |
if scalar @fines; |
| 240 |
|
240 |
|
| 241 |
my $start_date = $due_dt->clone(); |
241 |
my $start_date = $due_dt->clone(); |
| 242 |
|
242 |
|
| 243 |
- |
|
|