my $rqoverduebranches = $dbh->prepare("SELECT DISTINCT branchcode FROM overduerules WHERE delay1 IS NOT NULL AND branchcode <> '' ORDER BY branchcode");

    my @branchcodes = $dbh->selectrow_array(q|

    $rqoverduebranches->execute;

        SELECT DISTINCT(branchcode)

    my @branches = map { shift @$_ } @{ $rqoverduebranches->fetchall_arrayref };

        FROM overduerules

    if (!$branches[0]) {

        WHERE delay1 IS NOT NULL

       my $availbranches = C4::Branch::GetBranches();

        ORDER BY branchcode

       @branches = keys %$availbranches;

    |);

    if ( $branchcodes[0] eq '' ) {

        # If a default rule exists, all branches should be returned

        my $availbranches = C4::Branch::GetBranches();

        return keys %$availbranches;

    return @branches;

    return @branchcodes;

- 

#!/usr/bin/perl

use Modern::Perl;

use Test::More tests => 3;

use C4::Branch;

use C4::Context;

use C4::Overdues;

my $dbh = C4::Context->dbh;

$dbh->{AutoCommit} = 0;

$dbh->{RaiseError} = 1;

$dbh->do(q|DELETE FROM overduerules|);

$dbh->do(q|

    INSERT INTO overduerules

        ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )

        VALUES

        ( '', '', 1, 'LETTER_CODE1', 1, 5, 'LETTER_CODE2', 1, 10, 'LETTER_CODE3', 1 )

|);

my $all_branches = C4::Branch::GetBranches;

my @branchcodes = keys %$all_branches;

my @overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules;

is_deeply( \@overdue_branches, \@branchcodes, 'If a default rule exists, all branches should be returned' );

$dbh->do(q|

    INSERT INTO overduerules

        ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )

        VALUES

        ( 'CPL', '', 1, 'LETTER_CODE1', 1, 5, 'LETTER_CODE2', 1, 10, 'LETTER_CODE3', 1 )

|);

@overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules;

is_deeply( \@overdue_branches, \@branchcodes, 'If a default rule exists and a specific rule exists, all branches should be returned' );

$dbh->do(q|DELETE FROM overduerules|);

$dbh->do(q|

    INSERT INTO overduerules

        ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )

        VALUES

        ( 'CPL', '', 1, 'LETTER_CODE1', 1, 5, 'LETTER_CODE2', 1, 10, 'LETTER_CODE3', 1 )

|);

@overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules;

is_deeply( \@overdue_branches, ['CPL'] , 'If only a specific rule exist, only 1 branch should be returned' );