@@ -, +, @@ --- tools/overduerules.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/tools/overduerules.pl +++ a/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 { --