# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Output;
use C4::Charset qw(StripNonXmlChars);
+use Koha::Patrons;
use Koha::ItemTypes;
}
);
-# get borrower information ....
-my ( $borr ) = GetMember( borrowernumber => $borrowernumber );
+my $borr = Koha::Patrons->find( $borrowernumber )->unblessed;
$template->param(%{$borr});