| Lines 422-427
          sub outstanding_debits {
      
      
        Link Here | 
        
          | 422 |     return $lines; | 422 |     return $lines; | 
        
          | 423 | } | 423 | } | 
        
          | 424 |  | 424 |  | 
            
              |  |  | 425 | =head3 outstanding_credits | 
            
              | 426 |  | 
            
              | 427 | my ( $total, $lines ) = Koha::Account->new({ patron_id => $patron_id })->outstanding_credits; | 
            
              | 428 |  | 
            
              | 429 | =cut | 
            
              | 430 |  | 
            
              | 431 | sub outstanding_credits { | 
            
              | 432 |     my ($self) = @_; | 
            
              | 433 |  | 
            
              | 434 |     my $outstanding_credits = Koha::Account::Lines->search( | 
            
              | 435 |         {   borrowernumber    => $self->{patron_id}, | 
            
              | 436 |             amountoutstanding => { '<' => 0 } | 
            
              | 437 |         }, | 
            
              | 438 |         {   select => [ { sum => 'amountoutstanding' } ], | 
            
              | 439 |             as     => ['outstanding_credits_total'], | 
            
              | 440 |         } | 
            
              | 441 |     ); | 
            
              | 442 |     my $total | 
            
              | 443 |         = ( $outstanding_credits->count ) | 
            
              | 444 |         ? $outstanding_credits->next->get_column('outstanding_credits_total') + 0 | 
            
              | 445 |         : 0; | 
            
              | 446 |  | 
            
              | 447 |     my $lines = Koha::Account::Lines->search( | 
            
              | 448 |         { | 
            
              | 449 |             borrowernumber    => $self->{patron_id}, | 
            
              | 450 |             amountoutstanding => { '<' => 0 } | 
            
              | 451 |         } | 
            
              | 452 |     ); | 
            
              | 453 |  | 
            
              | 454 |     return ( $total, $lines ); | 
            
              | 455 | } | 
            
              | 456 |  | 
        
          | 425 | =head3 non_issues_charges | 457 | =head3 non_issues_charges | 
        
          | 426 |  | 458 |  | 
        
          | 427 | my $non_issues_charges = $self->non_issues_charges | 459 | my $non_issues_charges = $self->non_issues_charges | 
            
              | 428 | -  |  |  |