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 |
- |
|
|