@@ -, +, @@ Koha::Patron->get_overdues --- C4/Members.pm | 21 --------------------- members/print_overdues.pl | 8 ++++++-- 2 files changed, 6 insertions(+), 23 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -69,8 +69,6 @@ BEGIN { &GetBorrowersToExpunge &IssueSlip - - GetOverduesForPatron ); #Modify data @@ -1190,25 +1188,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,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,10 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( my $borrowernumber = $input->param('borrowernumber'); my $branchcode = C4::Context->userenv->{'branch'}; -my $overdues = GetOverduesForPatron($borrowernumber); +my $overdues = [ + map { $_->unblessed_all_relateds } + @{ Koha::Patrons->find($borrowernumber)->get_overdues } +]; my $letter = parse_overdues_letter( { --