use Test::More tests => 2;

use Test::More tests => 2;

use t::lib::TestBuilder;

use t::lib::TestBuilder;

use C4::Accounts qw( manualinvoice );

use C4::Accounts qw( manualinvoice );

use C4::Circulation qw( CanBookBeIssued );

use C4::Circulation qw( CanBookBeIssued );

    }

    }

);

);

my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );

my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );

is( $issuingimpossible->{DEBT_GUARANTEES}, undef, "Patron can check out item" );

is( $issuingimpossible->{DEBT_GUARANTEES}, undef, "Patron can check out item" );

    my $itemnumber = $built_item->{ itemnumber };

    my $itemnumber = $built_item->{ itemnumber };

    my $item;

    my $item;

    AddReturn( $barcode, $branch );

    AddReturn( $barcode, $branch );

    $item = GetItem( $itemnumber );

    $item = GetItem( $itemnumber );

    is( $item->{location}, 'CART',

    is( $item->{location}, 'CART',

    $item->{location} = $location;

    $item->{location} = $location;

    ModItem( $item, undef, $itemnumber );

    ModItem( $item, undef, $itemnumber );

    AddReturn( $barcode, $branch );

    AddReturn( $barcode, $branch );

    $item = GetItem( $itemnumber );

    $item = GetItem( $itemnumber );

    is( $item->{location}, $permanent_location,

    is( $item->{location}, $permanent_location,

    plan tests => 2;

    plan tests => 2;

    # Set item-level item types

    # Set item-level item types

    # Make sure logging is enabled

    # Make sure logging is enabled

    # Create an itemtype for biblio-level item type

    # Create an itemtype for biblio-level item type

    my $blevel_itemtype = $builder->build({ source => 'Itemtype' })->{ itemtype };

    my $blevel_itemtype = $builder->build({ source => 'Itemtype' })->{ itemtype };

    plan tests => 2;

    plan tests => 2;

    # Make sure logging is enabled

    # Make sure logging is enabled

    # Set item-level item types

    # Set item-level item types

    # Create an itemtype for biblio-level item type

    # Create an itemtype for biblio-level item type

    my $blevel_itemtype = $builder->build({ source => 'Itemtype' })->{ itemtype };

    my $blevel_itemtype = $builder->build({ source => 'Itemtype' })->{ itemtype };

use Koha::Holds;

use Koha::Holds;

use Koha::Hold;

use Koha::Hold;

use t::lib::TestBuilder;

use t::lib::TestBuilder;

use Test::More tests => 14;

use Test::More tests => 14;

my $item   = pop(@items);

my $item   = pop(@items);

my $patron = pop(@patrons);

my $patron = pop(@patrons);

my $item_hr = { itemnumber => $item->id, biblionumber => $biblio->id, homebranch => $library->{branchcode}, holdingbranch => $library->{branchcode}, barcode => $item->barcode };

my $item_hr = { itemnumber => $item->id, biblionumber => $biblio->id, homebranch => $library->{branchcode}, holdingbranch => $library->{branchcode}, barcode => $item->barcode };

my $patron_hr = { borrowernumber => $patron->id, branchcode => $library->{branchcode} };

my $patron_hr = { borrowernumber => $patron->id, branchcode => $library->{branchcode} };

is( $data->{duration},        1,          "Should have duration of 1" );

is( $data->{duration},        1,          "Should have duration of 1" );

is( ref( $data->{due_date} ), 'DateTime', "due_date should be a DateTime object" );

is( ref( $data->{due_date} ), 'DateTime', "due_date should be a DateTime object" );

$data = C4::Circulation::checkHighHolds( $item_hr, $patron_hr );

$data = C4::Circulation::checkHighHolds( $item_hr, $patron_hr );

is( $data->{exceeded}, 0, "Should not exceed threshold" );

is( $data->{exceeded}, 0, "Should not exceed threshold" );

$data = C4::Circulation::checkHighHolds( $item_hr, $patron_hr );

$data = C4::Circulation::checkHighHolds( $item_hr, $patron_hr );

is( $data->{exceeded}, 1, "Should exceed threshold of 1" );

is( $data->{exceeded}, 1, "Should exceed threshold of 1" );

$data = C4::Circulation::checkHighHolds( $item_hr, $patron_hr );

$data = C4::Circulation::checkHighHolds( $item_hr, $patron_hr );

is( $data->{exceeded}, 0, "Should not exceed threshold of 2" );

is( $data->{exceeded}, 0, "Should not exceed threshold of 2" );

$data = C4::Circulation::checkHighHolds( $item_hr, $patron_hr );

$data = C4::Circulation::checkHighHolds( $item_hr, $patron_hr );

is( $data->{exceeded}, 1, "Should exceed threshold with one withdrawn item" );

is( $data->{exceeded}, 1, "Should exceed threshold with one withdrawn item" );

my ( undef, $needsconfirmation ) = CanBookBeIssued( $patron_hr, $item->barcode );

my ( undef, $needsconfirmation ) = CanBookBeIssued( $patron_hr, $item->barcode );

ok( $needsconfirmation->{HIGHHOLDS}, "High holds checkout needs confirmation" );

ok( $needsconfirmation->{HIGHHOLDS}, "High holds checkout needs confirmation" );

use Koha::DateUtils;

use Koha::DateUtils;

use t::lib::TestBuilder;

use t::lib::TestBuilder;

BEGIN {

BEGIN {

    use FindBin;

    use FindBin;

#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'");

                              WHERE borrowernumber = $borrowernumber");

                              WHERE borrowernumber = $borrowernumber");

# We have a book available homed in borrower branch, no point fiddling with AutomaticItemReturn

# We have a book available homed in borrower branch, no point fiddling with AutomaticItemReturn

test_queue ('take from homebranch',  0, $borrower_branchcode, $borrower_branchcode);

test_queue ('take from homebranch',  0, $borrower_branchcode, $borrower_branchcode);

test_queue ('take from homebranch',  1, $borrower_branchcode, $borrower_branchcode);

test_queue ('take from homebranch',  1, $borrower_branchcode, $borrower_branchcode);

$dbh->do("DELETE FROM issues WHERE itemnumber IN (SELECT itemnumber FROM items WHERE homebranch = '$borrower_branchcode' AND holdingbranch = '$borrower_branchcode')");

$dbh->do("DELETE FROM issues WHERE itemnumber IN (SELECT itemnumber FROM items WHERE homebranch = '$borrower_branchcode' AND holdingbranch = '$borrower_branchcode')");

$dbh->do("DELETE FROM items WHERE homebranch = '$borrower_branchcode' AND holdingbranch = '$borrower_branchcode'");

$dbh->do("DELETE FROM items WHERE homebranch = '$borrower_branchcode' AND holdingbranch = '$borrower_branchcode'");

# test_queue will flush

# test_queue will flush

# Not sure how to make this test more difficult - holding branch does not matter

# Not sure how to make this test more difficult - holding branch does not matter

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

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

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

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

$dbh->do("DELETE FROM issues WHERE itemnumber IN (SELECT itemnumber FROM items WHERE homebranch = '$borrower_branchcode')");

$dbh->do("DELETE FROM issues WHERE itemnumber IN (SELECT itemnumber FROM items WHERE homebranch = '$borrower_branchcode')");

$dbh->do("DELETE FROM items WHERE homebranch = '$borrower_branchcode'");

$dbh->do("DELETE FROM items WHERE homebranch = '$borrower_branchcode'");

# We have a book available held in borrower branch

# We have a book available held in borrower branch

test_queue ('take from holdingbranch', 0, $borrower_branchcode, $borrower_branchcode);

test_queue ('take from holdingbranch', 0, $borrower_branchcode, $borrower_branchcode);

test_queue ('take from holdingbranch', 1, $borrower_branchcode, $borrower_branchcode);

test_queue ('take from holdingbranch', 1, $borrower_branchcode, $borrower_branchcode);

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

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

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

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

$itemtype = $builder->build({ source => 'Itemtype', value => { notforloan => 0 } })->{itemtype};

$itemtype = $builder->build({ source => 'Itemtype', value => { notforloan => 0 } })->{itemtype};

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

# 1 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 1 row in the holds queue

# have 1 row in the holds queue

my $today = dt_from_string();

my $today = dt_from_string();

C4::Calendar->new( branchcode => $branchcodes[0] )->insert_single_holiday(

C4::Calendar->new( branchcode => $branchcodes[0] )->insert_single_holiday(

    day         => $today->day(),

    day         => $today->day(),

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 => {} });

is( scalar( @$holds_queue ), 1, "Holds not filled with items from closed libraries" );

is( scalar( @$holds_queue ), 1, "Holds not filled with items from closed libraries" );

$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 )");

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

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

# and use our previously created holiday for MPL

# and use our previously created holiday for MPL

# When we run it again we should only have 2 rows in the holds queue

# When we run it again we should only have 2 rows in the holds queue

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 => {} });

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

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

## Test LocalHoldsPriority

## Test LocalHoldsPriority

$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 )");

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

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

# Test homebranch = patron branch

# Test homebranch = patron branch

C4::Context->clear_syspref_cache();

C4::Context->clear_syspref_cache();

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

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

$sth->execute( $borrower1->{borrowernumber}, $biblionumber, $branchcodes[0], 1 );

$sth->execute( $borrower1->{borrowernumber}, $biblionumber, $branchcodes[0], 1 );

is( $holds_queue->[0]->{cardnumber}, $borrower3->{cardnumber}, "Holds queue giving priority to patron who's home library matches item's home library");

is( $holds_queue->[0]->{cardnumber}, $borrower3->{cardnumber}, "Holds queue giving priority to patron who's home library matches item's home library");

# Test holdingbranch = patron branch

# Test holdingbranch = patron branch

C4::Context->clear_syspref_cache();

C4::Context->clear_syspref_cache();

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

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

$sth->execute( $borrower1->{borrowernumber}, $biblionumber, $branchcodes[0], 1 );

$sth->execute( $borrower1->{borrowernumber}, $biblionumber, $branchcodes[0], 1 );

is( $holds_queue->[0]->{cardnumber}, $borrower3->{cardnumber}, "Holds queue giving priority to patron who's home library matches item's holding library");

is( $holds_queue->[0]->{cardnumber}, $borrower3->{cardnumber}, "Holds queue giving priority to patron who's home library matches item's holding library");

# Test holdingbranch = pickup branch

# Test holdingbranch = pickup branch

C4::Context->clear_syspref_cache();

C4::Context->clear_syspref_cache();

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

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

$sth->execute( $borrower1->{borrowernumber}, $biblionumber, $branchcodes[0], 1 );

$sth->execute( $borrower1->{borrowernumber}, $biblionumber, $branchcodes[0], 1 );

is( $holds_queue->[0]->{cardnumber}, $borrower3->{cardnumber}, "Holds queue giving priority to patron who's home library matches item's holding library");

is( $holds_queue->[0]->{cardnumber}, $borrower3->{cardnumber}, "Holds queue giving priority to patron who's home library matches item's holding library");

# Test homebranch = pickup branch

# Test homebranch = pickup branch

C4::Context->clear_syspref_cache();

C4::Context->clear_syspref_cache();

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

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

$sth->execute( $borrower1->{borrowernumber}, $biblionumber, $branchcodes[0], 1 );

$sth->execute( $borrower1->{borrowernumber}, $biblionumber, $branchcodes[0], 1 );

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

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

is( $holds_queue->[0]->{cardnumber}, $borrower3->{cardnumber}, "Holds queue giving priority to patron who's home library matches item's holding library");

is( $holds_queue->[0]->{cardnumber}, $borrower3->{cardnumber}, "Holds queue giving priority to patron who's home library matches item's holding library");

## End testing of LocalHoldsPriority

## End testing of LocalHoldsPriority

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

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

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

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

my $tc_rs = $schema->resultset('TransportCost');

my $tc_rs = $schema->resultset('TransportCost');

$tc_rs->create({ frombranch => $library_A, tobranch => $library_B, cost => 0, disable_transfer => 1 });

$tc_rs->create({ frombranch => $library_A, tobranch => $library_B, cost => 0, disable_transfer => 1 });

# End Bug 15062

# End Bug 15062

# Test hold_fulfillment_policy

# Test hold_fulfillment_policy

$borrowernumber = $borrower3->{borrowernumber};

$borrowernumber = $borrower3->{borrowernumber};

$library_A = $library1->{branchcode};

$library_A = $library1->{branchcode};

$library_B = $library2->{branchcode};

$library_B = $library2->{branchcode};

# End testing hold_fulfillment_policy

# End testing hold_fulfillment_policy

# Test hold itemtype limit

# Test hold itemtype limit

my $wrong_itemtype = $builder->build({ source => 'Itemtype', value => { notforloan => 0 } })->{itemtype};

my $wrong_itemtype = $builder->build({ source => 'Itemtype', value => { notforloan => 0 } })->{itemtype};

my $right_itemtype = $builder->build({ source => 'Itemtype', value => { notforloan => 0 } })->{itemtype};

my $right_itemtype = $builder->build({ source => 'Itemtype', value => { notforloan => 0 } })->{itemtype};

$borrowernumber = $borrower3->{borrowernumber};

$borrowernumber = $borrower3->{borrowernumber};

    is( $getitem->{location}, 'CART', "The location should have been set to CART" );

    is( $getitem->{location}, 'CART', "The location should have been set to CART" );

    is( $getitem->{permanent_location}, $location, "The permanent_location should not have been set to CART" );

    is( $getitem->{permanent_location}, $location, "The permanent_location should not have been set to CART" );

    $getitem = GetItem($itemnumber);

    $getitem = GetItem($itemnumber);

    is( $getitem->{itype}, $itemtype->{itemtype}, "Itemtype set correctly when using item_level-itypes" );

    is( $getitem->{itype}, $itemtype->{itemtype}, "Itemtype set correctly when using item_level-itypes" );

    $getitem = GetItem($itemnumber);

    $getitem = GetItem($itemnumber);

    is( $getitem->{itype}, undef, "Itemtype set correctly when not using item_level-itypes" );

    is( $getitem->{itype}, undef, "Itemtype set correctly when not using item_level-itypes" );

use Koha::Database;

use Koha::Database;

use t::lib::TestBuilder;

use t::lib::TestBuilder;

BEGIN {

BEGIN {

    use_ok('Koha::Template::Plugin::Branches');

    use_ok('Koha::Template::Plugin::Branches');

$library = $plugin->GetLoggedInBranchcode();

$library = $plugin->GetLoggedInBranchcode();

is($library, 'MYLIBRARY', 'GetLoggedInBranchcode() returns active library');

is($library, 'MYLIBRARY', 'GetLoggedInBranchcode() returns active library');

my $libraries = $plugin->all();

my $libraries = $plugin->all();

ok( scalar(@$libraries) > 1, 'If IndependentBranches is not set, all libraries should be returned' );

ok( scalar(@$libraries) > 1, 'If IndependentBranches is not set, all libraries should be returned' );

is( grep ( { $_->{branchcode} eq 'MYLIBRARY'  and $_->{selected} == 1 } @$libraries ),       1, 'Without selected parameter, my library should be preselected' );

is( grep ( { $_->{branchcode} eq 'MYLIBRARY'  and $_->{selected} == 1 } @$libraries ),       1, 'Without selected parameter, my library should be preselected' );

$libraries = $plugin->all( { selected => '' } );

$libraries = $plugin->all( { selected => '' } );

is( grep ( { exists $_->{selected} } @$libraries ), 0, 'With selected parameter set to an empty string, no library should be preselected' );

is( grep ( { exists $_->{selected} } @$libraries ), 0, 'With selected parameter set to an empty string, no library should be preselected' );

$libraries = $plugin->all();

$libraries = $plugin->all();

is( scalar(@$libraries), 1, 'If IndependentBranches is set, only 1 library should be returned' );

is( scalar(@$libraries), 1, 'If IndependentBranches is set, only 1 library should be returned' );

$libraries = $plugin->all( { unfiltered => 1 } );

$libraries = $plugin->all( { unfiltered => 1 } );