Lines 557-563
$amountold =~ s/^.*\$//; # remove upto the $, if any
Link Here
|
557 |
|
557 |
|
558 |
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); |
558 |
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); |
559 |
|
559 |
|
560 |
if ( $patron && $patron->category->category_type eq 'C') { |
560 |
if ( $patron && $patron->is_child) { |
561 |
my $patron_categories = Koha::Patron::Categories->search_limited({ category_type => 'A' }, {order_by => ['categorycode']}); |
561 |
my $patron_categories = Koha::Patron::Categories->search_limited({ category_type => 'A' }, {order_by => ['categorycode']}); |
562 |
$template->param( 'CATCODE_MULTI' => 1) if $patron_categories->count > 1; |
562 |
$template->param( 'CATCODE_MULTI' => 1) if $patron_categories->count > 1; |
563 |
$template->param( 'catcode' => $patron_categories->next->categorycode ) if $patron_categories->count == 1; |
563 |
$template->param( 'catcode' => $patron_categories->next->categorycode ) if $patron_categories->count == 1; |
564 |
- |
|
|