use Koha::Database;
use Koha::Exceptions;
-use base qw(Koha::Objects);
+use Koha::CirculationRule;
+
+use base qw(Koha::CirculationRules);
=head1 NAME
=cut
sub _type {
- return 'RefundLostItemFeeRule';
+ return 'CirculationRule';
}
=head3 object_class
=cut
sub object_class {
- return 'Koha::RefundLostItemFeeRule';
+ return 'Koha::CirculationRule';
}
=head3 should_refund
my $self = shift;
my $branch = shift;
- my $specific_rule = $self->find({ branchcode => $branch });
+ my $specific_rule = $self->search(
+ {
+ branchcode => $branch,
+ categorycode => undef,
+ itemtype => undef,
+ rule_name => 'refund',
+ }
+ )->next();
return ( defined $specific_rule )
- ? $specific_rule->refund
+ ? $specific_rule->rule_value
: $self->_default_rule;
}
=head3 _default_rule (internal)
This function returns the default rule defined for refunding lost
-item fees on return.
+item fees on return. It defaults to 1 if no rule is defined.
=cut
sub _default_rule {
- my $self = shift;
- return $self->find({ branchcode => '*' })->refund;
+ my $self = shift;
+ my $default_rule = $self->search(
+ {
+ branchcode => '*',
+ categorycode => undef,
+ itemtype => undef,
+ rule_name => 'refund',
+ }
+ )->next();
+
+ return (defined $default_rule)
+ ? $default_rule->rule_value
+ : 1;
}
1;