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 692944c..1465f48 100644 (file)
--- 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