Lines 2-8
Link Here
|
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
|
4 |
|
5 |
use Test::More tests => 18; |
5 |
use Test::More tests => 20; |
6 |
use MARC::Record; |
6 |
use MARC::Record; |
7 |
use DateTime::Duration; |
7 |
use DateTime::Duration; |
8 |
|
8 |
|
Lines 269-275
is(exists $messages->{ResFound}?1:0, 1, 'AddReturn considers future reserve with
Link Here
|
269 |
# End of tests for bug 9761 (ConfirmFutureHolds) |
269 |
# End of tests for bug 9761 (ConfirmFutureHolds) |
270 |
|
270 |
|
271 |
# test marking a hold as captured |
271 |
# test marking a hold as captured |
|
|
272 |
my $hold_notice_count = count_hold_print_messages(); |
272 |
ModReserveAffect($itemnumber, $requesters{'CPL'}, 0); |
273 |
ModReserveAffect($itemnumber, $requesters{'CPL'}, 0); |
|
|
274 |
my $new_count = count_hold_print_messages(); |
275 |
is($new_count, $hold_notice_count + 1, 'patron notified when item set to waiting'); |
276 |
|
277 |
# test that duplicate notices aren't generated |
278 |
ModReserveAffect($itemnumber, $requesters{'CPL'}, 0); |
279 |
$new_count = count_hold_print_messages(); |
280 |
is($new_count, $hold_notice_count + 1, 'patron not notified a second time (bug 11445)'); |
273 |
|
281 |
|
274 |
is( |
282 |
is( |
275 |
DelItemCheck($dbh, $bibnum, $itemnumber), |
283 |
DelItemCheck($dbh, $bibnum, $itemnumber), |
Lines 281-283
my $letter = ReserveSlip('CPL', $requesters{'CPL'}, $bibnum);
Link Here
|
281 |
ok(defined($letter), 'can successfully generate hold slip (bug 10949)'); |
289 |
ok(defined($letter), 'can successfully generate hold slip (bug 10949)'); |
282 |
|
290 |
|
283 |
$dbh->rollback; |
291 |
$dbh->rollback; |
284 |
- |
292 |
|
|
|
293 |
sub count_hold_print_messages { |
294 |
my $message_count = $dbh->selectall_arrayref(q{ |
295 |
SELECT COUNT(*) FROM message_queue WHERE letter_code = 'HOLD_PRINT' |
296 |
}); |
297 |
return $message_count->[0]->[0]; |
298 |
} |