View | Details | Raw Unified | Return to bug 21681
Collapse All | Expand All

(-)a/C4/ILSDI/Services.pm (-4 / +1 lines)
Lines 426-435 sub GetPatronInfo { Link Here
426
    # Fines management
426
    # Fines management
427
    if ( $cgi->param('show_fines') && $cgi->param('show_fines') eq "1" ) {
427
    if ( $cgi->param('show_fines') && $cgi->param('show_fines') eq "1" ) {
428
428
429
        my $account_lines = Koha::Account::Lines->search({
429
        my $account_lines = $patron->account->lines;
430
            borrowernumber => $patron->borrowernumber,
431
        });
432
433
        while (my $line = $account_lines->next ) {
430
        while (my $line = $account_lines->next ) {
434
            push @{ $borrower->{fines}{fine} }, $line->unblessed;
431
            push @{ $borrower->{fines}{fine} }, $line->unblessed;
435
        }
432
        }
(-)a/Koha/Account.pm (-1 / +20 lines)
Lines 524-529 sub non_issues_charges { Link Here
524
      : 0;
524
      : 0;
525
}
525
}
526
526
527
=head3 lines
528
529
my $lines = $self->lines;
530
531
Return all credits and debits for the user, outstanding or otherwise
532
533
=cut
534
535
sub lines {
536
    my ($self) = @_;
537
538
    my $lines = Koha::Account::Lines->search(
539
        {
540
            borrowernumber    => $self->{patron_id},
541
        }
542
    );
543
544
    return $lines;
545
}
546
527
1;
547
1;
528
548
529
=head2 Name mappings
549
=head2 Name mappings
530
- 

Return to bug 21681