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

(-)a/C4/Overdues.pm (-2 / +1 lines)
Lines 957-963 returns a list of branch codes for branches with overdue rules defined. Link Here
957
957
958
sub GetBranchcodesWithOverdueRules {
958
sub GetBranchcodesWithOverdueRules {
959
    my $dbh               = C4::Context->dbh;
959
    my $dbh               = C4::Context->dbh;
960
    my $rqoverduebranches = $dbh->prepare("SELECT DISTINCT branchcode FROM overduerules WHERE delay1 IS NOT NULL AND branchcode <> ''");
960
    my $rqoverduebranches = $dbh->prepare("SELECT DISTINCT branchcode FROM overduerules WHERE delay1 IS NOT NULL");
961
    $rqoverduebranches->execute;
961
    $rqoverduebranches->execute;
962
    my @branches = map { shift @$_ } @{ $rqoverduebranches->fetchall_arrayref };
962
    my @branches = map { shift @$_ } @{ $rqoverduebranches->fetchall_arrayref };
963
    return @branches;
963
    return @branches;
964
- 

Return to bug 3393