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 1159-1164
subtest "Test Local Holds Priority - Ensure no duplicate requests in holds queue
Link Here
|
1159 |
}; |
1159 |
}; |
1160 |
|
1160 |
|
1161 |
|
1161 |
|
|
|
1162 |
subtest "Item level holds info is preserved (Bug 25738)" => sub { |
1163 |
|
1164 |
plan tests => 3; |
1165 |
|
1166 |
$dbh->do("DELETE FROM tmp_holdsqueue"); |
1167 |
$dbh->do("DELETE FROM hold_fill_targets"); |
1168 |
$dbh->do("DELETE FROM reserves"); |
1169 |
$dbh->do("DELETE FROM circulation_rules"); |
1170 |
|
1171 |
my $library = $builder->build_object({ class => 'Koha::Libraries' }); |
1172 |
my $patron_1 = $builder->build_object( |
1173 |
{ |
1174 |
class => "Koha::Patrons", |
1175 |
value => { |
1176 |
branchcode => $library->branchcode |
1177 |
} |
1178 |
} |
1179 |
); |
1180 |
|
1181 |
my $patron_2 = $builder->build_object( |
1182 |
{ |
1183 |
class => "Koha::Patrons", |
1184 |
value => { |
1185 |
branchcode => $library->branchcode |
1186 |
} |
1187 |
} |
1188 |
); |
1189 |
|
1190 |
my $biblio = $builder->build_sample_biblio(); |
1191 |
my $item_1 = $builder->build_sample_item( |
1192 |
{ |
1193 |
biblionumber => $biblio->biblionumber, |
1194 |
library => $library->branchcode, |
1195 |
} |
1196 |
); |
1197 |
my $item_2 = $builder->build_sample_item( |
1198 |
{ |
1199 |
biblionumber => $biblio->biblionumber, |
1200 |
library => $library->branchcode, |
1201 |
} |
1202 |
); |
1203 |
|
1204 |
# Add item-level hold for patron_1 |
1205 |
my $reserve_id_1 = AddReserve( |
1206 |
{ |
1207 |
branchcode => $library->branchcode, |
1208 |
borrowernumber => $patron_1->borrowernumber, |
1209 |
biblionumber => $biblio->id, |
1210 |
itemnumber => $item_1->itemnumber, |
1211 |
priority => 1 |
1212 |
} |
1213 |
); |
1214 |
|
1215 |
my $reserve_id_2 = AddReserve( |
1216 |
{ |
1217 |
branchcode => $library->branchcode, |
1218 |
borrowernumber => $patron_2->borrowernumber, |
1219 |
biblionumber => $biblio->id, |
1220 |
priority => 2 |
1221 |
} |
1222 |
); |
1223 |
|
1224 |
C4::HoldsQueue::CreateQueue(); |
1225 |
|
1226 |
my $queue_rs = $schema->resultset('TmpHoldsqueue'); |
1227 |
|
1228 |
is( $queue_rs->count(), 2, "Hold queue contains two holds" ); |
1229 |
|
1230 |
my $queue_line_1 = $queue_rs->next; |
1231 |
is( $queue_line_1->item_level_request, 1, 'Request is correctly advertised as item-level' ); |
1232 |
|
1233 |
my $queue_line_2 = $queue_rs->next; |
1234 |
is( $queue_line_2->item_level_request, 0, 'Request is correctly advertised as biblio-level' ); |
1235 |
|
1236 |
}; |
1237 |
|
1162 |
subtest 'Trivial test for UpdateTransportCostMatrix' => sub { |
1238 |
subtest 'Trivial test for UpdateTransportCostMatrix' => sub { |
1163 |
plan tests => 1; |
1239 |
plan tests => 1; |
1164 |
my $recs = [ |
1240 |
my $recs = [ |
1165 |
- |
|
|