Bug 11897: Stockrotation

[srvgit] / Koha / RefundLostItemFeeRules.pm

diff --git a/Koha/RefundLostItemFeeRules.pm b/Koha/RefundLostItemFeeRules.pm
index 3e37f43..2e83c76 100644 (file)
--- a/Koha/RefundLostItemFeeRules.pm
+++ b/Koha/RefundLostItemFeeRules.pm
@@ -22,6 +22,8 @@ use Modern::Perl;
 use Koha::Database;
 use Koha::Exceptions;
 
+use Koha::RefundLostItemFeeRule;
+
 use base qw(Koha::Objects);
 
 =head1 NAME
@@ -130,14 +132,18 @@ sub _choose_branch {
 =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;
+    my $default_rule = $self->find({ branchcode => '*' });
 
-    return $self->find({ branchcode => '*' })->refund;
+    return (defined $default_rule)
+                ? $default_rule->refund
+                : 1;
 }
 
 1;