From: Terran McCanna <tmccanna@georgialibraries.org>
Date: Thu, 1 Dec 2022 00:46:23 +0000 (-0500)
Subject: Online Renewal - add date to quipu name keyword entry
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=c0acc42d9df946509750bfe259bbc1e23668bc8d;p=evergreen%2Fpines.git

Online Renewal - add date to quipu name keyword entry

Signed-off-by: Terran McCanna <tmccanna@georgialibraries.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
index 692944c1cb..1465f48c1d 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
@@ -371,10 +371,13 @@ sub update_user {
 
     # Need to append new keyword for use in reports later
     my $orig_kw = $au->name_keywords;
+    my $dt = DateTime->now;
+    my $dty = $dt->year;
+    my $dtm = $dt->month;
     if ($orig_kw ne '') {
-        $au->name_keywords("$orig_kw quipu_renew");
+        $au->name_keywords("$orig_kw quipu_renew_$dty$dtm");
     } else {
-        $au->name_keywords("quipu_renew");
+        $au->name_keywords("quipu_renew_$dty$dtm");
     }
 
     # Temp renewal is only 30 days, otherwise use perm_interval