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

(-)a/C4/Members.pm (-6 / +5 lines)
Lines 2279-2292 sub IssueSlip { Link Here
2279
2279
2280
#   return unless ( C4::Context->boolean_preference('printcirculationslips') );
2280
#   return unless ( C4::Context->boolean_preference('printcirculationslips') );
2281
2281
2282
    my $today       = POSIX::strftime("%Y-%m-%d", localtime);
2282
    my $now       = POSIX::strftime("%Y-%m-%d", localtime);
2283
2283
2284
    my $issueslist = GetPendingIssues($borrowernumber);
2284
    my $issueslist = GetPendingIssues($borrowernumber);
2285
    foreach my $it (@$issueslist){
2285
    foreach my $it (@$issueslist){
2286
        if ($it->{'issuedate'} eq $today) {
2286
        if ((substr $it->{'issuedate'}, 0, 10) eq $now) {
2287
            $it->{'today'} = 1;
2287
            $it->{'now'} = 1;
2288
        }
2288
        }
2289
        elsif ($it->{'date_due'} le $today) {
2289
        elsif ((substr $it->{'date_due'}, 0, 10) le $now) {
2290
            $it->{'overdue'} = 1;
2290
            $it->{'overdue'} = 1;
2291
        }
2291
        }
2292
2292
Lines 2302-2308 sub IssueSlip { Link Here
2302
                'biblio' => $_,
2302
                'biblio' => $_,
2303
                'items'  => $_,
2303
                'items'  => $_,
2304
                'issues' => $_,
2304
                'issues' => $_,
2305
            }, grep { $_->{'today'} } @issues ],
2305
            }, grep { $_->{'now'} } @issues ],
2306
        );
2306
        );
2307
    }
2307
    }
2308
    else {
2308
    else {
2309
- 

Return to bug 8129