|
Lines 78-85
sub new {
Link Here
|
| 78 |
address => $adr, |
78 |
address => $adr, |
| 79 |
home_phone => $kp->{phone}, |
79 |
home_phone => $kp->{phone}, |
| 80 |
email_addr => $kp->{email}, |
80 |
email_addr => $kp->{email}, |
| 81 |
charge_ok => ( !$debarred && !$expired ), |
81 |
charge_ok => ( !$debarred && !$expired && ( $fines_amount < C4::Context->preference('noissuescharge') ) ), |
| 82 |
renew_ok => ( !$debarred && !$expired ), |
82 |
renew_ok => ( !$debarred && !$expired && ( $fines_amount < C4::Context->preference('OPACFineNoRenewals') ) ), |
| 83 |
recall_ok => ( !$debarred && !$expired ), |
83 |
recall_ok => ( !$debarred && !$expired ), |
| 84 |
hold_ok => ( !$debarred && !$expired ), |
84 |
hold_ok => ( !$debarred && !$expired ), |
| 85 |
card_lost => ( $kp->{lost} || $kp->{gonenoaddress} || $flags->{LOST} ), |
85 |
card_lost => ( $kp->{lost} || $kp->{gonenoaddress} || $flags->{LOST} ), |