|
Lines 737-754
sub CanBookBeIssued {
Link Here
|
| 737 |
return( { STATS => 1 }, {}); |
737 |
return( { STATS => 1 }, {}); |
| 738 |
} |
738 |
} |
| 739 |
|
739 |
|
| 740 |
my $flags = C4::Members::patronflags( $borrower ); |
740 |
if ( $patron->gonenoaddress == 1 ) { |
| 741 |
if ( ref $flags ) { |
741 |
$issuingimpossible{GNA} = 1; |
| 742 |
if ( $flags->{GNA} ) { |
|
|
| 743 |
$issuingimpossible{GNA} = 1; |
| 744 |
} |
| 745 |
if ( $flags->{'LOST'} ) { |
| 746 |
$issuingimpossible{CARD_LOST} = 1; |
| 747 |
} |
| 748 |
if ( $flags->{'DBARRED'} ) { |
| 749 |
$issuingimpossible{DEBARRED} = 1; |
| 750 |
} |
| 751 |
} |
742 |
} |
|
|
743 |
if ( $patron->lost == 1 ) { |
| 744 |
$issuingimpossible{CARD_LOST} = 1; |
| 745 |
} |
| 746 |
if ( $patron->is_debarred ) { |
| 747 |
$issuingimpossible{DEBARRED} = 1; |
| 748 |
} |
| 749 |
|
| 752 |
if ( !defined $borrower->{dateexpiry} || $borrower->{'dateexpiry'} eq '0000-00-00') { |
750 |
if ( !defined $borrower->{dateexpiry} || $borrower->{'dateexpiry'} eq '0000-00-00') { |
| 753 |
$issuingimpossible{EXPIRED} = 1; |
751 |
$issuingimpossible{EXPIRED} = 1; |
| 754 |
} else { |
752 |
} else { |
| 755 |
- |
|
|