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 |
- |
|
|