| 
      
            Lines 428-440
          my $lines = Koha::Account->new({ patron_id => $patron_id })->outstanding_debits;
      
      
        Link Here
      
     | 
  
        
          | 428 | 
          sub outstanding_debits { | 
          428 | 
          sub outstanding_debits { | 
        
        
          | 429 | 
              my ($self) = @_;  | 
          429 | 
              my ($self) = @_;  | 
        
        
          | 430 | 
           | 
          430 | 
           | 
        
          
            
              | 431 | 
                  my $lines = $self->lines->search(  | 
              431 | 
                  return $self->lines->search(  | 
            
        
          | 432 | 
                  { | 
          432 | 
                  { | 
        
        
          | 433 | 
                      amountoutstanding => { '>' => 0 } | 
          433 | 
                      amountoutstanding => { '>' => 0 } | 
        
        
          | 434 | 
                  }  | 
          434 | 
                  }  | 
        
        
          | 435 | 
              );  | 
          435 | 
              );  | 
        
            
              | 436 | 
               | 
               | 
               | 
            
            
              | 437 | 
                  return $lines;  | 
            
        
          | 438 | 
          }  | 
          436 | 
          }  | 
        
        
          | 439 | 
           | 
          437 | 
           | 
        
        
          | 440 | 
          =head3 outstanding_credits  | 
          438 | 
          =head3 outstanding_credits  | 
        
  
    | 
      
            Lines 446-458
          my $lines = Koha::Account->new({ patron_id => $patron_id })->outstanding_credits
      
      
        Link Here
      
     | 
  
        
          | 446 | 
          sub outstanding_credits { | 
          444 | 
          sub outstanding_credits { | 
        
        
          | 447 | 
              my ($self) = @_;  | 
          445 | 
              my ($self) = @_;  | 
        
        
          | 448 | 
           | 
          446 | 
           | 
        
          
            
              | 449 | 
                  my $lines = $self->lines->search(  | 
              447 | 
                  return $self->lines->search(  | 
            
        
          | 450 | 
                  { | 
          448 | 
                  { | 
        
        
          | 451 | 
                      amountoutstanding => { '<' => 0 } | 
          449 | 
                      amountoutstanding => { '<' => 0 } | 
        
        
          | 452 | 
                  }  | 
          450 | 
                  }  | 
        
        
          | 453 | 
              );  | 
          451 | 
              );  | 
        
            
              | 454 | 
               | 
               | 
               | 
            
            
              | 455 | 
                  return $lines;  | 
            
        
          | 456 | 
          }  | 
          452 | 
          }  | 
        
        
          | 457 | 
           | 
          453 | 
           | 
        
        
          | 458 | 
          =head3 non_issues_charges  | 
          454 | 
          =head3 non_issues_charges  | 
        
            
              | 459 | 
              -   | 
               | 
               |