|
Lines 724-741
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} ) { |
|
|
| 730 |
$issuingimpossible{GNA} = 1; |
| 731 |
} |
| 732 |
if ( $flags->{'LOST'} ) { |
| 733 |
$issuingimpossible{CARD_LOST} = 1; |
| 734 |
} |
| 735 |
if ( $flags->{'DBARRED'} ) { |
| 736 |
$issuingimpossible{DEBARRED} = 1; |
| 737 |
} |
| 738 |
} |
729 |
} |
|
|
730 |
if ( $patron->lost == 1 ) { |
| 731 |
$issuingimpossible{CARD_LOST} = 1; |
| 732 |
} |
| 733 |
if ( $patron->is_debarred ) { |
| 734 |
$issuingimpossible{DEBARRED} = 1; |
| 735 |
} |
| 736 |
|
| 739 |
if ( !defined $patron->dateexpiry || $patron->dateexpiry eq '0000-00-00') { |
737 |
if ( !defined $patron->dateexpiry || $patron->dateexpiry eq '0000-00-00') { |
| 740 |
$issuingimpossible{EXPIRED} = 1; |
738 |
$issuingimpossible{EXPIRED} = 1; |
| 741 |
} else { |
739 |
} else { |
| 742 |
- |
|
|