Lines 1233-1239
subtest 'CanBookBeIssued & AllowReturnToBranch' => sub {
Link Here
|
1233 |
set_userenv($holdingbranch); |
1233 |
set_userenv($holdingbranch); |
1234 |
|
1234 |
|
1235 |
my $issue = AddIssue( $patron_1->unblessed, $item->{barcode} ); |
1235 |
my $issue = AddIssue( $patron_1->unblessed, $item->{barcode} ); |
1236 |
is( ref($issue), 'Koha::Checkout' ); # FIXME Should be Koha::Checkout |
1236 |
is( ref($issue), 'Koha::Checkout', 'AddIssue should return a Koha::Checkout object' ); |
1237 |
|
1237 |
|
1238 |
my ( $error, $question, $alerts ); |
1238 |
my ( $error, $question, $alerts ); |
1239 |
|
1239 |
|
Lines 1326-1332
subtest 'AddIssue & AllowReturnToBranch' => sub {
Link Here
|
1326 |
|
1326 |
|
1327 |
set_userenv($holdingbranch); |
1327 |
set_userenv($holdingbranch); |
1328 |
|
1328 |
|
1329 |
my $ref_issue = 'Koha::Checkout'; # FIXME Should be Koha::Checkout |
1329 |
my $ref_issue = 'Koha::Checkout'; |
1330 |
my $issue = AddIssue( $patron_1, $item->{barcode} ); |
1330 |
my $issue = AddIssue( $patron_1, $item->{barcode} ); |
1331 |
|
1331 |
|
1332 |
my ( $error, $question, $alerts ); |
1332 |
my ( $error, $question, $alerts ); |
1333 |
- |
|
|