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

(-)a/C4/Members.pm (-2 / +2 lines)
Lines 107-113 BEGIN { Link Here
107
        GetBorrowersWithEmail
107
        GetBorrowersWithEmail
108
108
109
        HasOverdues
109
        HasOverdues
110
        GetOverdues
110
        GetOverduesForPatron
111
    );
111
    );
112
112
113
    #Modify data
113
    #Modify data
Lines 2572-2578 WHERE borrowernumber = 0 AND DATEDIFF( NOW(), timestamp ) > ?|; Link Here
2572
    return $cnt eq '0E0'? 0: $cnt;
2572
    return $cnt eq '0E0'? 0: $cnt;
2573
}
2573
}
2574
2574
2575
sub GetOverdues {
2575
sub GetOverduesForPatron {
2576
    my ( $borrowernumber ) = @_;
2576
    my ( $borrowernumber ) = @_;
2577
2577
2578
    my $sql = "
2578
    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