GetBorrowersWithEmail
HasOverdues
- GetOverdues
+ GetOverduesForPatron
);
#Modify data
return $cnt eq '0E0'? 0: $cnt;
}
-sub GetOverdues {
+sub GetOverduesForPatron {
my ( $borrowernumber ) = @_;
my $sql = "
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;
my $borrowernumber = $input->param('borrowernumber');
my $branchcode = C4::Context->userenv->{'branch'};
-my $overdues = GetOverdues($borrowernumber);
+my $overdues = GetOverduesForPatron($borrowernumber);
my $letter = parse_overdues_letter(
{
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' );