X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=tools%2Foverduerules.pl;h=cc90d0bf71883141318f54ba1aac2a0019f40dd4;hb=7224e47dfe433d94f19b14eade1abee5f5d5c964;hp=478a762e73f6e294410ff0998e940a82485fede7;hpb=c1181b780bb87ae688d15070001ce9b949c35070;p=koha_fer

diff --git a/tools/overduerules.pl b/tools/overduerules.pl
index 478a762e73..cc90d0bf71 100755
--- a/tools/overduerules.pl
+++ b/tools/overduerules.pl
@@ -28,7 +28,7 @@ use C4::Branch;
 use C4::Letters;
 use C4::Members;
 
-my $input = new CGI;
+our $input = new CGI;
 my $dbh = C4::Context->dbh;
 
 my @categories = @{$dbh->selectall_arrayref(
@@ -36,7 +36,7 @@ my @categories = @{$dbh->selectall_arrayref(
     { Slice => {} }
 )};
 my @category_codes  = map { $_->{categorycode} } @categories;
-my @rule_params     = qw(delay letter debarred);
+our @rule_params     = qw(delay letter debarred);
 
 # blank_row($category_code) - return true if the entire row is blank.
 sub blank_row {