Bug 17829: Move GetMember to Koha::Patron

[koha_ffzg] / members / paycollect.pl

diff --git a/members/paycollect.pl b/members/paycollect.pl
index 9784e88..3b8b922 100755 (executable)
--- a/members/paycollect.pl
+++ b/members/paycollect.pl
@@ -29,6 +29,7 @@ use C4::Members::Attributes qw(GetBorrowerAttributes);
 use C4::Accounts;
 use C4::Koha;
 use Koha::Patron::Images;
+use Koha::Patrons;
 use Koha::Account;
 
 use Koha::Patron::Categories;
@@ -48,7 +49,11 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 
 # get borrower details
 my $borrowernumber = $input->param('borrowernumber');
-my $borrower       = GetMember( borrowernumber => $borrowernumber );
+my $patron         = Koha::Patrons->find( $borrowernumber );
+my $borrower       = $patron->unblessed;
+my $category       = $patron->category;
+$borrower->{description} = $category->description;
+$borrower->{category_type} = $category->category_type;
 my $user           = $input->remote_user;
 
 my $branch         = C4::Context->userenv->{'branch'};