Lines 724-740
sub CanBookBeIssued {
Link Here
|
724 |
return( { STATS => 1 }, {}); |
724 |
return( { STATS => 1 }, {}); |
725 |
} |
725 |
} |
726 |
|
726 |
|
727 |
my $flags = C4::Members::patronflags( $patron_unblessed ); |
727 |
if ( $patron->gonenoaddress == 1 ) { |
728 |
if ( ref $flags ) { |
728 |
$issuingimpossible{GNA} = 1; |
729 |
if ( $flags->{GNA} ) { |
729 |
} |
730 |
$issuingimpossible{GNA} = 1; |
730 |
|
731 |
} |
731 |
if ( $patron->lost == 1 ) { |
732 |
if ( $flags->{'LOST'} ) { |
732 |
$issuingimpossible{CARD_LOST} = 1; |
733 |
$issuingimpossible{CARD_LOST} = 1; |
733 |
} |
734 |
} |
734 |
if ( $patron->is_debarred ) { |
735 |
if ( $flags->{'DBARRED'} ) { |
735 |
$issuingimpossible{DEBARRED} = 1; |
736 |
$issuingimpossible{DEBARRED} = 1; |
|
|
737 |
} |
738 |
} |
736 |
} |
739 |
|
737 |
|
740 |
if ( $patron->is_expired ) { |
738 |
if ( $patron->is_expired ) { |
741 |
- |
|
|