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 02e09cf..89f5c81 100644 (file)
--- 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(