tmpl var CATCODE_MULTI now passed

[koha.git] / members / boraccount.pl

diff --git a/members/boraccount.pl b/members/boraccount.pl
index eec30d1..59b62ca 100755 (executable)
--- a/members/boraccount.pl
+++ b/members/boraccount.pl
@@ -25,7 +25,7 @@
 use strict;
 use C4::Auth;
 use C4::Output;
-use C4::Date;
+use C4::Dates qw/format_date/;
 use CGI;
 use C4::Members;
 
@@ -86,6 +86,10 @@ for (my $i=0;$i<$numaccts;$i++){
     push(@accountrows, \%row);
 }
 
+my $borrowercategory = GetBorrowercategory( $data->{'categorycode'} );
+my $category_type = $borrowercategory->{'category_type'};
+( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+
 $template->param(
                                finesview => 1,
                 firstname => $data->{'firstname'},