View | Details | Raw Unified | Return to bug 9180
Collapse All | Expand All

(-)a/C4/Overdues.pm (-2 / +1 lines)
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
- 

Return to bug 9180