| 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} ), |