|
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 |
- |
|
|