@@ -, +, @@ --- C4/Members.pm | 4 ++-- members/print_overdues.pl | 4 ++-- t/db_dependent/Members/GetOverdues.t | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -108,7 +108,7 @@ BEGIN { GetBorrowersWithEmail HasOverdues - GetOverdues + GetOverduesForPatron ); #Modify data @@ -2553,7 +2553,7 @@ WHERE borrowernumber = 0 AND DATEDIFF( NOW(), timestamp ) > ?|; return $cnt eq '0E0'? 0: $cnt; } -sub GetOverdues { +sub GetOverduesForPatron { my ( $borrowernumber ) = @_; my $sql = " --- a/members/print_overdues.pl +++ a/members/print_overdues.pl @@ -24,7 +24,7 @@ use CGI; use C4::Context; use C4::Auth; use C4::Output; -use C4::Members qw(GetOverdues); +use C4::Members qw(GetOverduesForPatron); use C4::Overdues qw(parse_overdues_letter); my $input = new CGI; @@ -45,7 +45,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( my $borrowernumber = $input->param('borrowernumber'); my $branchcode = C4::Context->userenv->{'branch'}; -my $overdues = GetOverdues($borrowernumber); +my $overdues = GetOverduesForPatron($borrowernumber); my $letter = parse_overdues_letter( { --- a/t/db_dependent/Members/GetOverdues.t +++ a/t/db_dependent/Members/GetOverdues.t @@ -57,8 +57,8 @@ AddIssue( $borrower, '0101', DateTime->now->subtract( days => 1 ) ); AddIssue( $borrower, '0102', DateTime->now->subtract( days => 5 ) ); AddIssue( $borrower, '0103' ); -my $overdues = C4::Members::GetOverdues( $borrowernumber ); -is( @$overdues, 2, 'GetOverdues returns the correct number of elements' ); +my $overdues = C4::Members::GetOverduesForPatron( $borrowernumber ); +is( @$overdues, 2, 'GetOverduesForPatron returns the correct number of elements' ); is( $overdues->[0]->{itemnumber}, $itemnumber1, 'First overdue is correct' ); is( $overdues->[1]->{itemnumber}, $itemnumber2, 'Second overdue is correct' ); --