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

(-)a/members/pay.pl (-9 / +8 lines)
Lines 133-149 output_html_with_http_headers $input, $cookie, $template->output; Link Here
133
sub add_accounts_to_template {
133
sub add_accounts_to_template {
134
134
135
    my ( $total, undef, undef ) = GetMemberAccountRecords($borrowernumber);
135
    my ( $total, undef, undef ) = GetMemberAccountRecords($borrowernumber);
136
    my $accounts = Koha::Account::Lines->search({ borrowernumber => $borrowernumber, }, { order_by => ['accounttype'] });
136
    my $account_lines = Koha::Account::Lines->search({ borrowernumber => $borrowernumber, }, { order_by => ['accounttype'] });
137
    my @accounts;
137
    my @accounts;
138
    while ( my $account = $accounts->next ) {
138
    while ( my $account_line = $account_lines->next ) {
139
        $account = $account->unblessed;
139
        $account_line = $account_line->unblessed;
140
        if ( $account->{itemnumber} ) {
140
        if ( $account_line->{itemnumber} ) {
141
            my $item = Koha::Items->find( $account->{itemnumber} );
141
            my $item = Koha::Items->find( $account_line->{itemnumber} );
142
            my $biblio = $item->biblio;
142
            my $biblio = $item->biblio;
143
            $account->{biblionumber} = $biblio->biblionumber;
143
            $account_line->{biblionumber} = $biblio->biblionumber;
144
            $account->{title}        = $biblio->title;
144
            $account_line->{title}        = $biblio->title;
145
        }
145
        }
146
        push @accounts, $account;
146
        push @accounts, $account_line;
147
    }
147
    }
148
    borrower_add_additional_fields($borrower);
148
    borrower_add_additional_fields($borrower);
149
149
150
- 

Return to bug 10021