|
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 |
- |
|
|