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