|
Lines 340-349
sub excessive_fees {
Link Here
|
| 340 |
my $self = shift; |
340 |
my $self = shift; |
| 341 |
return ($self->fee_amount and $self->fee_amount > $self->fee_limit); |
341 |
return ($self->fee_amount and $self->fee_amount > $self->fee_limit); |
| 342 |
} |
342 |
} |
|
|
343 |
|
| 343 |
sub excessive_fines { |
344 |
sub excessive_fines { |
| 344 |
my $self = shift; |
345 |
my $self = shift; |
| 345 |
return $self->excessive_fees; # excessive_fines is the same thing as excessive_fees for Koha |
346 |
return $self->excessive_fees; # excessive_fines is the same thing as excessive_fees for Koha |
| 346 |
} |
347 |
} |
|
|
348 |
|
| 349 |
sub holds_blocked_by_excessive_fees { |
| 350 |
return ( $self->fee_amount |
| 351 |
&& $self->fee_amount > C4::Context->preference("maxoutstanding") ); |
| 352 |
} |
| 347 |
|
353 |
|
| 348 |
sub library_name { |
354 |
sub library_name { |
| 349 |
my $self = shift; |
355 |
my $self = shift; |
| 350 |
- |
|
|