Lines 298-304
subtest 'BlockReturnOfLostItems' => sub {
Link Here
|
298 |
my ( $doreturn, $messages, $issue ) = AddReturn($item->barcode); |
298 |
my ( $doreturn, $messages, $issue ) = AddReturn($item->barcode); |
299 |
is( $doreturn, 0, "With BlockReturnOfLostItems, a checkin of a lost item should be blocked"); |
299 |
is( $doreturn, 0, "With BlockReturnOfLostItems, a checkin of a lost item should be blocked"); |
300 |
is( $messages->{WasLost}, 1, "... and the WasLost flag should be set"); |
300 |
is( $messages->{WasLost}, 1, "... and the WasLost flag should be set"); |
301 |
is( $messages->{NeedsTransfer}, undef, "... and no transfer should be triggered"); |
301 |
is( $messages->{NeedsTransfer}, undef, "... and no transfer should be triggered" ); |
302 |
|
302 |
|
303 |
$item->discard_changes; |
303 |
$item->discard_changes; |
304 |
is( $item->itemlost, 1, "Item remains lost" ); |
304 |
is( $item->itemlost, 1, "Item remains lost" ); |
305 |
- |
|
|