|
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 |
- |
|
|