Bug 18552: [QA Follow-up] Resolve warnings

[koha.git] / members / statistics.pl

diff --git a/members/statistics.pl b/members/statistics.pl
index fcc5371..a63d328 100755 (executable)
--- a/members/statistics.pl
+++ b/members/statistics.pl
@@ -26,7 +26,6 @@ use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use C4::Auth;
-use C4::Branch;
 use C4::Context;
 use C4::Members;
 use C4::Members::Statistics;
@@ -49,7 +48,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 my $borrowernumber = $input->param('borrowernumber');
 
 # Set informations for the patron
-my $borrower = GetMemberDetails( $borrowernumber, 0 );
+my $borrower = GetMember( borrowernumber => $borrowernumber );
 if ( not defined $borrower ) {
     $template->param (unknowuser => 1);
     output_html_with_http_headers $input, $cookie, $template->output;
@@ -98,6 +97,8 @@ $template->param( picture => 1 ) if $patron_image;
 
 $template->param(%$borrower);
 
+$template->param( adultborrower => 1 ) if ( $borrower->{category_type} eq 'A' || $borrower->{category_type} eq 'I' );
+
 $template->param(
     statisticsview     => 1,
     datas              => $datas,