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

(-)a/C4/Members.pm (-21 lines)
Lines 69-76 BEGIN { Link Here
69
        &GetBorrowersToExpunge
69
        &GetBorrowersToExpunge
70
70
71
        &IssueSlip
71
        &IssueSlip
72
73
        GetOverduesForPatron
74
    );
72
    );
75
73
76
    #Modify data
74
    #Modify data
Lines 1190-1214 WHERE borrowernumber = 0 AND DATEDIFF( NOW(), timestamp ) > ?|; Link Here
1190
    return $cnt eq '0E0'? 0: $cnt;
1188
    return $cnt eq '0E0'? 0: $cnt;
1191
}
1189
}
1192
1190
1193
sub GetOverduesForPatron {
1194
    my ( $borrowernumber ) = @_;
1195
1196
    my $sql = "
1197
        SELECT *
1198
        FROM issues, items, biblio, biblioitems
1199
        WHERE items.itemnumber=issues.itemnumber
1200
          AND biblio.biblionumber   = items.biblionumber
1201
          AND biblio.biblionumber   = biblioitems.biblionumber
1202
          AND issues.borrowernumber = ?
1203
          AND date_due < NOW()
1204
    ";
1205
1206
    my $sth = C4::Context->dbh->prepare( $sql );
1207
    $sth->execute( $borrowernumber );
1208
1209
    return $sth->fetchall_arrayref({});
1210
}
1211
1212
END { }    # module clean-up code here (global destructor)
1191
END { }    # module clean-up code here (global destructor)
1213
1192
1214
1;
1193
1;
(-)a/members/print_overdues.pl (-3 / +6 lines)
Lines 24-32 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(GetOverduesForPatron);
28
use C4::Overdues qw(parse_overdues_letter);
27
use C4::Overdues qw(parse_overdues_letter);
29
28
29
use Koha::Patrons;
30
30
my $input = new CGI;
31
my $input = new CGI;
31
32
32
my $flagsrequired = { circulate => "circulate_remaining_permissions" };
33
my $flagsrequired = { circulate => "circulate_remaining_permissions" };
Lines 45-51 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
45
my $borrowernumber = $input->param('borrowernumber');
46
my $borrowernumber = $input->param('borrowernumber');
46
my $branchcode     = C4::Context->userenv->{'branch'};
47
my $branchcode     = C4::Context->userenv->{'branch'};
47
48
48
my $overdues = GetOverduesForPatron($borrowernumber);
49
my $overdues = [
50
    map { $_->unblessed_all_relateds }
51
      @{ Koha::Patrons->find($borrowernumber)->get_overdues }
52
];
49
53
50
my $letter = parse_overdues_letter(
54
my $letter = parse_overdues_letter(
51
    {
55
    {
52
- 

Return to bug 17553