Lines 28-34
use C4::Branch;
Link Here
|
28 |
use C4::Letters; |
28 |
use C4::Letters; |
29 |
use C4::Members; |
29 |
use C4::Members; |
30 |
|
30 |
|
31 |
my $input = new CGI; |
31 |
our $input = new CGI; |
32 |
my $dbh = C4::Context->dbh; |
32 |
my $dbh = C4::Context->dbh; |
33 |
|
33 |
|
34 |
my @categories = @{$dbh->selectall_arrayref( |
34 |
my @categories = @{$dbh->selectall_arrayref( |
Lines 36-42
my @categories = @{$dbh->selectall_arrayref(
Link Here
|
36 |
{ Slice => {} } |
36 |
{ Slice => {} } |
37 |
)}; |
37 |
)}; |
38 |
my @category_codes = map { $_->{categorycode} } @categories; |
38 |
my @category_codes = map { $_->{categorycode} } @categories; |
39 |
my @rule_params = qw(delay letter debarred); |
39 |
our @rule_params = qw(delay letter debarred); |
40 |
|
40 |
|
41 |
# blank_row($category_code) - return true if the entire row is blank. |
41 |
# blank_row($category_code) - return true if the entire row is blank. |
42 |
sub blank_row { |
42 |
sub blank_row { |
43 |
- |
|
|