|
Lines 133-139
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 = []; |
136 |
my $accounts = Koha::Account::Lines->search({ borrowernumber => $borrowernumber, }, { order_by => ['accounttype'] }); |
|
|
137 |
my @accounts; |
| 138 |
while ( my $account = $accounts->next ) { |
| 139 |
$account = $account->unblessed; |
| 140 |
if ( $account->{itemnumber} ) { |
| 141 |
my $item = Koha::Items->find( $account->{itemnumber} ); |
| 142 |
my $biblio = $item->biblio; |
| 143 |
$account->{biblionumber} = $biblio->biblionumber; |
| 144 |
$account->{title} = $biblio->title; |
| 145 |
} |
| 146 |
push @accounts, $account; |
| 147 |
} |
| 137 |
borrower_add_additional_fields($borrower); |
148 |
borrower_add_additional_fields($borrower); |
| 138 |
|
149 |
|
| 139 |
$template->param(%$borrower); |
150 |
$template->param(%$borrower); |
|
Lines 141-147
sub add_accounts_to_template {
Link Here
|
| 141 |
my $patron_image = Koha::Patron::Images->find($borrower->{borrowernumber}); |
152 |
my $patron_image = Koha::Patron::Images->find($borrower->{borrowernumber}); |
| 142 |
$template->param( picture => 1 ) if $patron_image; |
153 |
$template->param( picture => 1 ) if $patron_image; |
| 143 |
$template->param( |
154 |
$template->param( |
| 144 |
accounts => $accounts, |
155 |
accounts => \@accounts, |
| 145 |
borrower => $borrower, |
156 |
borrower => $borrower, |
| 146 |
categoryname => $borrower->{'description'}, |
157 |
categoryname => $borrower->{'description'}, |
| 147 |
total => $total, |
158 |
total => $total, |
| 148 |
- |
|
|