Lines 1025-1031
returns a list of branch codes for branches with overdue rules defined.
Link Here
|
1025 |
|
1025 |
|
1026 |
sub GetBranchcodesWithOverdueRules { |
1026 |
sub GetBranchcodesWithOverdueRules { |
1027 |
my $dbh = C4::Context->dbh; |
1027 |
my $dbh = C4::Context->dbh; |
1028 |
my $rqoverduebranches = $dbh->prepare("SELECT DISTINCT branchcode FROM overduerules WHERE delay1 IS NOT NULL AND branchcode <> '' ORDER BY branchcode"); |
1028 |
my $rqoverduebranches = $dbh->prepare("SELECT DISTINCT branchcode FROM overduerules WHERE delay1 IS NOT NULL ORDER BY branchcode"); |
1029 |
$rqoverduebranches->execute; |
1029 |
$rqoverduebranches->execute; |
1030 |
my @branches = map { shift @$_ } @{ $rqoverduebranches->fetchall_arrayref }; |
1030 |
my @branches = map { shift @$_ } @{ $rqoverduebranches->fetchall_arrayref }; |
1031 |
if (!$branches[0]) { |
1031 |
if (!$branches[0]) { |
1032 |
- |
|
|