|
Lines 8-14
Link Here
|
| 8 |
|
8 |
|
| 9 |
use Modern::Perl; |
9 |
use Modern::Perl; |
| 10 |
|
10 |
|
| 11 |
use Test::More tests => 51; |
11 |
use Test::More tests => 52; |
| 12 |
use Data::Dumper; |
12 |
use Data::Dumper; |
| 13 |
|
13 |
|
| 14 |
use C4::Calendar; |
14 |
use C4::Calendar; |
|
Lines 952-957
subtest "Test Local Holds Priority - Item level hold over Record level hold (Bug
Link Here
|
| 952 |
); |
952 |
); |
| 953 |
}; |
953 |
}; |
| 954 |
|
954 |
|
|
|
955 |
subtest "Test Local Holds Priority - Get correct item for item level hold" => sub { |
| 956 |
plan tests => 3; |
| 957 |
|
| 958 |
Koha::Biblios->delete(); |
| 959 |
t::lib::Mocks::mock_preference( 'LocalHoldsPriority', 1 ); |
| 960 |
t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'PickupLibrary' ); |
| 961 |
t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'homebranch' ); |
| 962 |
my $branch = $builder->build_object( { class => 'Koha::Libraries' } ); |
| 963 |
my $branch2 = $builder->build_object( { class => 'Koha::Libraries' } ); |
| 964 |
my $local_patron = $builder->build_object( |
| 965 |
{ |
| 966 |
class => "Koha::Patrons", |
| 967 |
value => { |
| 968 |
branchcode => $branch->branchcode |
| 969 |
} |
| 970 |
} |
| 971 |
); |
| 972 |
my $other_patron = $builder->build_object( |
| 973 |
{ |
| 974 |
class => "Koha::Patrons", |
| 975 |
value => { |
| 976 |
branchcode => $branch2->branchcode |
| 977 |
} |
| 978 |
} |
| 979 |
); |
| 980 |
my $biblio = $builder->build_sample_biblio(); |
| 981 |
|
| 982 |
my $item1 = $builder->build_sample_item( |
| 983 |
{ |
| 984 |
biblionumber => $biblio->biblionumber, |
| 985 |
library => $branch->branchcode, |
| 986 |
} |
| 987 |
); |
| 988 |
my $item2 = $builder->build_sample_item( |
| 989 |
{ |
| 990 |
biblionumber => $biblio->biblionumber, |
| 991 |
library => $branch->branchcode, |
| 992 |
} |
| 993 |
); |
| 994 |
my $item3 = $builder->build_sample_item( |
| 995 |
{ |
| 996 |
biblionumber => $biblio->biblionumber, |
| 997 |
library => $branch->branchcode, |
| 998 |
} |
| 999 |
); |
| 1000 |
|
| 1001 |
my $reserve_id2 = |
| 1002 |
AddReserve( $item2->homebranch, $local_patron->borrowernumber, |
| 1003 |
$biblio->biblionumber, '', 2, undef, undef, undef, undef, $item2->id, undef, undef ); |
| 1004 |
|
| 1005 |
C4::HoldsQueue::CreateQueue(); |
| 1006 |
|
| 1007 |
my $queue_rs = $schema->resultset('TmpHoldsqueue'); |
| 1008 |
my $q = $queue_rs->next; |
| 1009 |
is( $queue_rs->count(), 1, |
| 1010 |
"Hold queue contains one hold" ); |
| 1011 |
is( |
| 1012 |
$q->borrowernumber, |
| 1013 |
$local_patron->borrowernumber, |
| 1014 |
"We should pick the local hold over the next available" |
| 1015 |
); |
| 1016 |
is( $q->itemnumber->id, $item2->id, "Got the correct item for item level local holds priority" ); |
| 1017 |
}; |
| 1018 |
|
| 955 |
subtest "Test Local Holds Priority - Ensure no duplicate requests in holds queue (Bug 18001)" => sub { |
1019 |
subtest "Test Local Holds Priority - Ensure no duplicate requests in holds queue (Bug 18001)" => sub { |
| 956 |
plan tests => 1; |
1020 |
plan tests => 1; |
| 957 |
|
1021 |
|
| 958 |
- |
|
|