From 09496768734f330180f274dfd4d1f5017cd2ad3e Mon Sep 17 00:00:00 2001 From: Terran McCanna Date: Fri, 2 Sep 2022 13:25:00 -0400 Subject: [PATCH] Online Renewal - Exceptions for temp renewal Signed-off-by: Terran McCanna --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 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 215b31e8bb..53c63aca8a 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm @@ -349,15 +349,16 @@ sub update_user { $au->name_keywords($au->name_keywords + ' quipu_renew'); # Temp renewal is only 30 days, otherwise use perm_interval + # If perm group is Homebound (53) or GLS (56), allow full renewal my $temp_renewal = $cgi->param('temp_renewal'); - - if ($temp_renewal == '1') { + my $perm_grp = $au->profile; + + if ($temp_renewal == '1' && $perm_grp != '53' && $perm_grp != '56') { $au->expire_date( DateTime->now(time_zone => 'local')->add( seconds => interval_to_seconds('30 days'))->iso8601() ); } else { - $au->profile($perm_grp); my $grp = new_editor()->retrieve_permission_grp_tree($perm_grp); $au->expire_date( DateTime->now(time_zone => 'local')->add( -- 2.11.0