|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 63; |
20 |
use Test::More tests => 64; |
| 21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
| 22 |
use Test::Warn; |
22 |
use Test::Warn; |
| 23 |
|
23 |
|
|
Lines 485-490
$cancancel = CanReserveBeCanceledFromOpac($canres->{reserve_id}, $requesters{$br
Link Here
|
| 485 |
is($cancancel, 0, 'Reserve in transfer status cant be canceled'); |
485 |
is($cancancel, 0, 'Reserve in transfer status cant be canceled'); |
| 486 |
|
486 |
|
| 487 |
$dbh->do('DELETE FROM reserves', undef, ($bibnum)); |
487 |
$dbh->do('DELETE FROM reserves', undef, ($bibnum)); |
|
|
488 |
is( CanReserveBeCanceledFromOpac($canres->{resserve_id}, $requesters{$branch_1}), undef, |
| 489 |
'Cannot cancel a deleted hold' ); |
| 488 |
AddReserve($branch_1, $requesters{$branch_1}, $item_bibnum, |
490 |
AddReserve($branch_1, $requesters{$branch_1}, $item_bibnum, |
| 489 |
$bibitems, 1, undef, $expdate, $notes, |
491 |
$bibitems, 1, undef, $expdate, $notes, |
| 490 |
'a title', $checkitem, ''); |
492 |
'a title', $checkitem, ''); |
| 491 |
- |
|
|