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 3cc204b..4fd9c38 100755 (executable)
--- a/members/print_overdues.pl
+++ b/members/print_overdues.pl
@@ -24,8 +24,9 @@ use CGI;
 use C4::Context;
 use C4::Auth;
 use C4::Output;
-use C4::Members qw(GetOverdues);
-use C4::Overdues qw(parse_letter);
+use C4::Overdues qw(parse_overdues_letter);
+
+use Koha::Patrons;
 
 my $input = new CGI;
 
@@ -45,9 +46,15 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 my $borrowernumber = $input->param('borrowernumber');
 my $branchcode     = C4::Context->userenv->{'branch'};
 
-my $overdues = GetOverdues($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_letter(
+my $letter = parse_overdues_letter(
     {
         letter_code            => 'OVERDUES_SLIP',
         borrowernumber         => $borrowernumber,