Bug 20946: Use K::Account->outstanding_debits in pay.pl and paycollect.pl

[koha.git] / members / print_overdues.pl

diff --git a/members/print_overdues.pl b/members/print_overdues.pl
index b63dec9..4fd9c38 100755 (executable)
--- a/members/print_overdues.pl
+++ b/members/print_overdues.pl
@@ -24,9 +24,10 @@ use CGI;
 use C4::Context;
 use C4::Auth;
 use C4::Output;
-use C4::Members qw(GetOverduesForPatron);
 use C4::Overdues qw(parse_overdues_letter);
 
+use Koha::Patrons;
+
 my $input = new CGI;
 
 my $flagsrequired = { circulate => "circulate_remaining_permissions" };
@@ -45,7 +46,13 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 my $borrowernumber = $input->param('borrowernumber');
 my $branchcode     = C4::Context->userenv->{'branch'};
 
-my $overdues = GetOverduesForPatron($borrowernumber);
+my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
+my $patron         = Koha::Patrons->find( $borrowernumber );
+output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
+
+my $overdues = [
+    map { $_->unblessed_all_relateds } $patron->get_overdues
+];
 
 my $letter = parse_overdues_letter(
     {