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

(-)a/C4/Members.pm (-2 / +2 lines)
Lines 108-114 BEGIN { Link Here
108
        GetBorrowersWithEmail
108
        GetBorrowersWithEmail
109
109
110
        HasOverdues
110
        HasOverdues
111
        GetOverdues
111
        GetOverduesForPatron
112
    );
112
    );
113
113
114
    #Modify data
114
    #Modify data
Lines 2553-2559 WHERE borrowernumber = 0 AND DATEDIFF( NOW(), timestamp ) > ?|; Link Here
2553
    return $cnt eq '0E0'? 0: $cnt;
2553
    return $cnt eq '0E0'? 0: $cnt;
2554
}
2554
}
2555
2555
2556
sub GetOverdues {
2556
sub GetOverduesForPatron {
2557
    my ( $borrowernumber ) = @_;
2557
    my ( $borrowernumber ) = @_;
2558
2558
2559
    my $sql = "
2559
    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 / +3 lines)
Lines 57-63 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

Return to bug 12933