projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 6554 Fix error caused by modifying $_ in a map
[koha_fer]
/
tools
/
overduerules.pl
diff --git
a/tools/overduerules.pl
b/tools/overduerules.pl
index
478a762
..
cc90d0b
100755
(executable)
--- a/
tools/overduerules.pl
+++ b/
tools/overduerules.pl
@@
-28,7
+28,7
@@
use C4::Branch;
use C4::Letters;
use C4::Members;
use C4::Letters;
use C4::Members;
-
my
$input = new CGI;
+
our
$input = new CGI;
my $dbh = C4::Context->dbh;
my @categories = @{$dbh->selectall_arrayref(
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;
{ 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 {
# blank_row($category_code) - return true if the entire row is blank.
sub blank_row {