From c0acc42d9df946509750bfe259bbc1e23668bc8d Mon Sep 17 00:00:00 2001 From: Terran McCanna Date: Wed, 30 Nov 2022 19:46:23 -0500 Subject: [PATCH] Online Renewal - add date to quipu name keyword entry Signed-off-by: Terran McCanna --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 -- 2.11.0