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