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 |
- |
|
|