|
Lines 670-676
sub CanBookBeIssued {
Link Here
|
| 670 |
|
670 |
|
| 671 |
my $item = GetItem(undef, $barcode ); |
671 |
my $item = GetItem(undef, $barcode ); |
| 672 |
# MANDATORY CHECKS - unless item exists, nothing else matters |
672 |
# MANDATORY CHECKS - unless item exists, nothing else matters |
| 673 |
unless ( $item->{barcode} ) { |
673 |
unless ( $item ) { |
| 674 |
$issuingimpossible{UNKNOWN_BARCODE} = 1; |
674 |
$issuingimpossible{UNKNOWN_BARCODE} = 1; |
| 675 |
} |
675 |
} |
| 676 |
return ( \%issuingimpossible, \%needsconfirmation ) if %issuingimpossible; |
676 |
return ( \%issuingimpossible, \%needsconfirmation ) if %issuingimpossible; |
| 677 |
- |
|
|