@@ -, +, @@ Koha::Patron->get_overdues --- C4/Members.pm | 21 --------------------- members/print_overdues.pl | 5 +++-- 2 files changed, 3 insertions(+), 23 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -68,8 +68,6 @@ BEGIN { &GetBorrowersToExpunge &IssueSlip - - GetOverduesForPatron ); #Modify data @@ -1112,25 +1110,6 @@ WHERE borrowernumber = 0 AND DATEDIFF( NOW(), timestamp ) > ?|; return $cnt eq '0E0'? 0: $cnt; } -sub GetOverduesForPatron { - my ( $borrowernumber ) = @_; - - my $sql = " - SELECT * - FROM issues, items, biblio, biblioitems - WHERE items.itemnumber=issues.itemnumber - AND biblio.biblionumber = items.biblionumber - AND biblio.biblionumber = biblioitems.biblionumber - AND issues.borrowernumber = ? - AND date_due < NOW() - "; - - my $sth = C4::Context->dbh->prepare( $sql ); - $sth->execute( $borrowernumber ); - - return $sth->fetchall_arrayref({}); -} - END { } # module clean-up code here (global destructor) 1; --- a/members/print_overdues.pl +++ a/members/print_overdues.pl @@ -24,7 +24,6 @@ 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; @@ -51,7 +50,9 @@ 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 = GetOverduesForPatron($borrowernumber); +my $overdues = [ + map { $_->unblessed_all_relateds } $patron->get_overdues +]; my $letter = parse_overdues_letter( { --