Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 8129 - Quickslips not printing

Browse source 
Implemented from the suggestions attached to the bug.

To test:
Check out a book to a patron
Click print -> quick slip

Slip should show only today's checkouts.

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
Liz Rea 2012-05-29 16:06:22 -05:00 committed by Paul Poulain
parent 95d3fe8976
commit e4c1e89691
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
C4/Members.pm
View file

@ -2279,14 +2279,14 @@ sub IssueSlip {
# return unless ( C4::Context->boolean_preference('printcirculationslips') );
my $today = POSIX::strftime("%Y-%m-%d", localtime);
my $now = POSIX::strftime("%Y-%m-%d", localtime);
my $issueslist = GetPendingIssues($borrowernumber);
foreach my $it (@$issueslist){
if ($it->{'issuedate'} eq $today) {
$it->{'today'} = 1;
if ((substr $it->{'issuedate'}, 0, 10) eq $now) {
$it->{'now'} = 1;
}
elsif ($it->{'date_due'} le $today) {
elsif ((substr $it->{'date_due'}, 0, 10) le $now) {
$it->{'overdue'} = 1;
}
@ -2302,7 +2302,7 @@ sub IssueSlip {
'biblio' => $_,
'items' => $_,
'issues' => $_,
}, grep { $_->{'today'} } @issues ],
}, grep { $_->{'now'} } @issues ],
);
}
else {