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

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

    my $transport_costs = $dbh->selectall_arrayref("SELECT * FROM transport_cost",{ Slice => {} });

    my $transport_costs = $dbh->selectall_arrayref("SELECT * FROM transport_cost",{ Slice => {} });

    my %transport_cost_matrix;

    my %transport_cost_matrix;

    foreach (@$transport_costs) {

    foreach (@$transport_costs) {

        my $disabled = $_->{disable_transfer};

        my $disabled = $_->{disable_transfer};

    }

    }

    return \%transport_cost_matrix;

    return \%transport_cost_matrix;

}

}

use Modern::Perl;

use Modern::Perl;

use Data::Dumper;

use Data::Dumper;

use C4::Context;

use C4::Context;

#Set up the stage

#Set up the stage

# Sysprefs and cost matrix

# Sysprefs and cost matrix

$dbh->do("UPDATE systempreferences SET value = ? WHERE variable = 'StaticHoldsQueueWeight'", undef,

$dbh->do("UPDATE systempreferences SET value = ? WHERE variable = 'StaticHoldsQueueWeight'", undef,

         join( ',', @other_branches, $borrower_branchcode, $least_cost_branch_code));

         join( ',', @other_branches, $borrower_branchcode, $least_cost_branch_code));

$dbh->do("UPDATE systempreferences SET value = '0' WHERE variable = 'RandomizeHoldsQueueWeight'");

$dbh->do("UPDATE systempreferences SET value = '0' WHERE variable = 'RandomizeHoldsQueueWeight'");

ok( $holds_queue->[0]->{cardnumber} eq 'CARDNUMBER1', "Holds queue filling 1st correct hold for default holds policy 'from home library'");

ok( $holds_queue->[0]->{cardnumber} eq 'CARDNUMBER1', "Holds queue filling 1st correct hold for default holds policy 'from home library'");

ok( $holds_queue->[1]->{cardnumber} eq 'CARDNUMBER2', "Holds queue filling 2nd correct hold for default holds policy 'from home library'");

ok( $holds_queue->[1]->{cardnumber} eq 'CARDNUMBER2', "Holds queue filling 2nd correct hold for default holds policy 'from home library'");

$dbh->do("DELETE FROM default_circ_rules");

$dbh->do("DELETE FROM default_circ_rules");

$dbh->do("INSERT INTO default_circ_rules ( holdallowed ) VALUES ( 2 )");

$dbh->do("INSERT INTO default_circ_rules ( holdallowed ) VALUES ( 2 )");

C4::HoldsQueue::CreateQueue();

C4::HoldsQueue::CreateQueue();

ok( @$holds_queue == 3, "Holds queue filling correct number for holds for default holds policy 'from any library'" );

ok( @$holds_queue == 3, "Holds queue filling correct number for holds for default holds policy 'from any library'" );

#warn "HOLDS QUEUE: " . Data::Dumper::Dumper( $holds_queue );

#warn "HOLDS QUEUE: " . Data::Dumper::Dumper( $holds_queue );

# At this point in the test, we have 3 rows in the holds queue

# At this point in the test, we have 3 rows in the holds queue

# one of which is coming from MPL. Let's enable HoldsQueueSkipClosed

# one of which is coming from MPL. Let's enable HoldsQueueSkipClosed

# and make today a holiday for MPL. When we run it again we should only

# and make today a holiday for MPL. When we run it again we should only

# have 2 rows in the holds queue

# have 2 rows in the holds queue

C4::Context->set_preference( 'HoldsQueueSkipClosed', 1 );

C4::Context->set_preference( 'HoldsQueueSkipClosed', 1 );

C4::HoldsQueue::CreateQueue();

C4::HoldsQueue::CreateQueue();

$holds_queue = $dbh->selectall_arrayref("SELECT * FROM tmp_holdsqueue", { Slice => {} });

$holds_queue = $dbh->selectall_arrayref("SELECT * FROM tmp_holdsqueue", { Slice => {} });

ok( @$holds_queue == 2, "Holds not filled with items from closed libraries" );

ok( @$holds_queue == 2, "Holds not filled with items from closed libraries" );