| 
      
            Lines 65-72
          sub new {
      
      
        Link Here
      
     | 
  
        
          | 65 | 
              $dob and $dob =~ s/-//g;    # YYYYMMDD  | 
          65 | 
              $dob and $dob =~ s/-//g;    # YYYYMMDD  | 
        
        
          | 66 | 
              my $dexpiry     = $kp->{dateexpiry}; | 
          66 | 
              my $dexpiry     = $kp->{dateexpiry}; | 
        
        
          | 67 | 
              $dexpiry and $dexpiry =~ s/-//g;    # YYYYMMDD  | 
          67 | 
              $dexpiry and $dexpiry =~ s/-//g;    # YYYYMMDD  | 
        
            
               | 
               | 
              68 | 
               | 
            
        
          | 68 | 
              my $fines_amount = $flags->{CHARGES}->{amount}; # This "amount" is the negative balance or the one of the guarantees | 
          69 | 
              my $fines_amount = $flags->{CHARGES}->{amount}; # This "amount" is the negative balance or the one of the guarantees | 
        
        
          | 69 | 
              $fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0;  | 
          70 | 
              $fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0;  | 
        
            
               | 
               | 
              71 | 
                  my $guarantees_fines_amount = $flags->{CHARGES_GUARANTEES} ? $flags->{CHARGES_GUARANTEES}->{amount} : 0; | 
            
            
              | 72 | 
                  $fines_amount += $guarantees_fines_amount;  | 
            
            
              | 73 | 
               | 
            
        
          | 70 | 
              my $fee_limit = _fee_limit();  | 
          74 | 
              my $fee_limit = _fee_limit();  | 
        
        
          | 71 | 
              my $fine_blocked = $fines_amount > $fee_limit;  | 
          75 | 
              my $fine_blocked = $fines_amount > $fee_limit;  | 
        
        
          | 72 | 
              my $circ_blocked =( C4::Context->preference('OverduesBlockCirc') ne "noblock" &&  defined $flags->{ODUES}->{itemlist} ) ? 1 : 0; | 
          76 | 
              my $circ_blocked =( C4::Context->preference('OverduesBlockCirc') ne "noblock" &&  defined $flags->{ODUES}->{itemlist} ) ? 1 : 0; | 
        
            
              | 73 | 
              -   | 
               | 
               |