View | Details | Raw Unified | Return to bug 12933
Collapse All | Expand All

(-)a/C4/Members.pm (-2 / +2 lines)
Lines 109-115 BEGIN { Link Here
109
        GetBorrowersWithEmail
109
        GetBorrowersWithEmail
110
110
111
        HasOverdues
111
        HasOverdues
112
        GetOverdues
112
        GetOverduesForPatron
113
    );
113
    );
114
114
115
    #Modify data
115
    #Modify data
Lines 2581-2587 sub HasOverdues { Link Here
2581
    return $count;
2581
    return $count;
2582
}
2582
}
2583
2583
2584
sub GetOverdues {
2584
sub GetOverduesForPatron {
2585
    my ( $borrowernumber ) = @_;
2585
    my ( $borrowernumber ) = @_;
2586
2586
2587
    my $sql = "
2587
    my $sql = "
(-)a/members/print_overdues.pl (-2 / +2 lines)
Lines 24-30 use CGI; Link Here
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth;
26
use C4::Output;
26
use C4::Output;
27
use C4::Members qw(GetOverdues);
27
use C4::Members qw(GetOverduesForPatron);
28
use C4::Overdues qw(parse_overdues_letter);
28
use C4::Overdues qw(parse_overdues_letter);
29
29
30
my $input = new CGI;
30
my $input = new CGI;
Lines 45-51 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
45
my $borrowernumber = $input->param('borrowernumber');
45
my $borrowernumber = $input->param('borrowernumber');
46
my $branchcode     = C4::Context->userenv->{'branch'};
46
my $branchcode     = C4::Context->userenv->{'branch'};
47
47
48
my $overdues = GetOverdues($borrowernumber);
48
my $overdues = GetOverduesForPatron($borrowernumber);
49
49
50
my $letter = parse_overdues_letter(
50
my $letter = parse_overdues_letter(
51
    {
51
    {
(-)a/t/db_dependent/Members/GetOverdues.t (-3 / +2 lines)
Lines 57-64 AddIssue( $borrower, '0101', DateTime->now->subtract( days => 1 ) ); Link Here
57
AddIssue( $borrower, '0102', DateTime->now->subtract( days =>  5 ) );
57
AddIssue( $borrower, '0102', DateTime->now->subtract( days =>  5 ) );
58
AddIssue( $borrower, '0103' );
58
AddIssue( $borrower, '0103' );
59
59
60
my $overdues = C4::Members::GetOverdues( $borrowernumber );
60
my $overdues = C4::Members::GetOverduesForPatron( $borrowernumber );
61
is( @$overdues, 2, 'GetOverdues returns the correct number of elements' );
61
is( @$overdues, 2, 'GetOverduesForPatron returns the correct number of elements' );
62
is( $overdues->[0]->{itemnumber}, $itemnumber1, 'First overdue is correct' );
62
is( $overdues->[0]->{itemnumber}, $itemnumber1, 'First overdue is correct' );
63
is( $overdues->[1]->{itemnumber}, $itemnumber2, 'Second overdue is correct' );
63
is( $overdues->[1]->{itemnumber}, $itemnumber2, 'Second overdue is correct' );
64
64
65
- 

Return to bug 12933