From: Terran McCanna <tmccanna@georgialibraries.org>
Date: Fri, 2 Sep 2022 17:25:00 +0000 (-0400)
Subject: Online Renewal - Exceptions for temp renewal
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d16d5104f449b3df9f2602d9c1e063c41681b47b;p=working%2FEvergreen.git

Online Renewal - Exceptions for temp renewal

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 02e09cf17a..89f5c81e92 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
@@ -470,15 +470,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');
+    my $perm_grp = $au->profile;
 
-    if ($temp_renewal == '1') {
+    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(