@@ -, +, @@ --- members/pay.pl | 9 +++++---- members/paycollect.pl | 9 +++++---- 2 files changed, 10 insertions(+), 8 deletions(-) --- a/members/pay.pl +++ a/members/pay.pl @@ -151,7 +151,7 @@ sub add_accounts_to_template { } push @accounts, $account_line; } - borrower_add_additional_fields($patron->unblessed); + borrower_add_additional_fields($patron); $template->param( patron => $patron, @@ -229,20 +229,21 @@ sub writeoff_all { } sub borrower_add_additional_fields { - my $b_ref = shift; + my $patron = shift; # some borrower info is not returned in the standard call despite being assumed # in a number of templates. It should not be the business of this script but in lieu of # a revised api here it is ... - if ( $b_ref->{category_type} eq 'C' ) { + if ( $patron->category->category_type eq 'C' ) { my $patron_categories = Koha::Patron::Categories->search_limited({ category_type => 'A' }, {order_by => ['categorycode']}); $template->param( 'CATCODE_MULTI' => 1) if $patron_categories->count > 1; $template->param( 'catcode' => $patron_categories->next->categorycode ) if $patron_categories->count == 1; } if (C4::Context->preference('ExtendedPatronAttributes')) { - $b_ref->{extendedattributes} = GetBorrowerAttributes($borrowernumber); + my $extendedattributes = GetBorrowerAttributes($patron->borrowernumber); $template->param( + extendedattributes => $extendedattributes, ExtendedPatronAttributes => 1, ); } --- a/members/paycollect.pl +++ a/members/paycollect.pl @@ -177,7 +177,7 @@ if ( $total_paid and $total_paid ne '0.00' ) { $total_paid = '0.00'; #TODO not right with pay_individual } -borrower_add_additional_fields($borrower, $template); +borrower_add_additional_fields($borrower, $template, $category); $template->param(%$borrower); @@ -197,19 +197,20 @@ $template->param( output_html_with_http_headers $input, $cookie, $template->output; sub borrower_add_additional_fields { - my ( $b_ref, $template ) = @_; + my ( $b_ref, $template, $category ) = @_; # some borrower info is not returned in the standard call despite being assumed # in a number of templates. It should not be the business of this script but in lieu of # a revised api here it is ... - if ( $b_ref->{category_type} eq 'C' ) { + if ( $category->category_type eq 'C' ) { my $patron_categories = Koha::Patron::Categories->search_limited({ category_type => 'A' }, {order_by => ['categorycode']}); $template->param( 'CATCODE_MULTI' => 1) if $patron_categories->count > 1; $template->param( 'catcode' => $patron_categories->next->categorycode ) if $patron_categories->count == 1; } if (C4::Context->preference('ExtendedPatronAttributes')) { - $b_ref->{extendedattributes} = GetBorrowerAttributes($b_ref->{borrowernumber}); + my $extendedattributes = GetBorrowerAttributes($b_ref->{borrowernumber}); + $template->param( extendedattributes => $extendedattributes ); } return; --