|
Lines 53-60
is(Koha::Borrower::Discharge::generate_as_pdf,undef,"Confirm failure when lackin
Link Here
|
| 53 |
Koha::Borrower::Discharge::discharge({ borrowernumber => $borrowernumber }); |
53 |
Koha::Borrower::Discharge::discharge({ borrowernumber => $borrowernumber }); |
| 54 |
is( Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 1, 'The patron has been discharged' ); |
54 |
is( Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 1, 'The patron has been discharged' ); |
| 55 |
is(Koha::Borrower::Debarments::IsDebarred($borrowernumber), '9999-12-31', 'The patron has been debarred after discharge'); |
55 |
is(Koha::Borrower::Debarments::IsDebarred($borrowernumber), '9999-12-31', 'The patron has been debarred after discharge'); |
| 56 |
Koha::Borrower::Debarments::DelDebarment($borrowernumber); |
56 |
Koha::Borrower::Debarments::DelUniqueDebarment({'borrowernumber' => $borrowernumber, 'type' => 'DISCHARGE'}); |
| 57 |
is( Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 1, 'The patron is not discharged after the restriction has been lifted' ); |
57 |
ok(! Koha::Borrower::Debarments::IsDebarred($borrowernumber), 'The debarment has been lifted'); |
|
|
58 |
ok(! Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 'The patron is not discharged after the restriction has been lifted' ); |
| 58 |
|
59 |
|
| 59 |
# Check if PDF::FromHTML is installed. |
60 |
# Check if PDF::FromHTML is installed. |
| 60 |
my $check = eval { require PDF::FromHTML; }; |
61 |
my $check = eval { require PDF::FromHTML; }; |
| 61 |
- |
|
|