From 9e300f6a805d5ed824b722085abee5188331cb17 Mon Sep 17 00:00:00 2001 From: Liz Rea Date: Thu, 31 Jan 2013 14:53:29 +1300 Subject: [PATCH] Bug 8682 - Renewals do not appear on quick slips To test: Issue two books to a patron. Do a renewal on one of them. update the issuedate on the item that has been renewed to something before today (renewals on the same day will work even without this patch) I did: select * from issues; update issues set issuedate="2013-01-25 14:00:00" where itemnumber = 948; (itemnumber is variable depending on your test data.) Print a quick slip before the patch - the renewal will not show up as one of today's issues. Print a quick slip after the patch - the renewal will show up as one of today's issues. If you need reasoning as to why a renewal should show up on the quick slip, think of it as a record of everything a borrower did today, without the hassle of overdues. Signed-off-by: Kyle M Hall Signed-off-by: Jonathan Druart Signed-off-by: Jared Camins-Esakov Signed-off-by: Chris Cormack --- C4/Members.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Members.pm b/C4/Members.pm index 16b05401b9..dd2a6fa301 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -2256,7 +2256,7 @@ sub IssueSlip { my $issueslist = GetPendingIssues($borrowernumber); foreach my $it (@$issueslist){ - if ((substr $it->{'issuedate'}, 0, 10) eq $now) { + if ((substr $it->{'issuedate'}, 0, 10) eq $now || (substr $it->{'lastreneweddate'}, 0, 10) eq $now) { $it->{'now'} = 1; } elsif ((substr $it->{'date_due'}, 0, 10) le $now) { -- 2.39.5