|
Lines 812-825
sub CanBookBeIssued {
Link Here
|
| 812 |
ModDateLastSeen( $item->{'itemnumber'} ); |
812 |
ModDateLastSeen( $item->{'itemnumber'} ); |
| 813 |
return( { STATS => 1 }, {}); |
813 |
return( { STATS => 1 }, {}); |
| 814 |
} |
814 |
} |
| 815 |
if ( $borrower->{flags}->{GNA} ) { |
815 |
if ( ref $borrower->{flags} ) { |
| 816 |
$issuingimpossible{GNA} = 1; |
816 |
if ( $borrower->{flags}->{GNA} ) { |
| 817 |
} |
817 |
$issuingimpossible{GNA} = 1; |
| 818 |
if ( $borrower->{flags}->{'LOST'} ) { |
818 |
} |
| 819 |
$issuingimpossible{CARD_LOST} = 1; |
819 |
if ( $borrower->{flags}->{'LOST'} ) { |
| 820 |
} |
820 |
$issuingimpossible{CARD_LOST} = 1; |
| 821 |
if ( $borrower->{flags}->{'DBARRED'} ) { |
821 |
} |
| 822 |
$issuingimpossible{DEBARRED} = 1; |
822 |
if ( $borrower->{flags}->{'DBARRED'} ) { |
|
|
823 |
$issuingimpossible{DEBARRED} = 1; |
| 824 |
} |
| 823 |
} |
825 |
} |
| 824 |
if ( !defined $borrower->{dateexpiry} || $borrower->{'dateexpiry'} eq '0000-00-00') { |
826 |
if ( !defined $borrower->{dateexpiry} || $borrower->{'dateexpiry'} eq '0000-00-00') { |
| 825 |
$issuingimpossible{EXPIRED} = 1; |
827 |
$issuingimpossible{EXPIRED} = 1; |
| 826 |
- |
|
|