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