Save ExpireAutoReply setting

9 years ago · 92444dbe8d
parent cc06ff70a3
commit 92444dbe8d
1 changed files with 1 additions and 1 deletions
--- a/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm
+++ b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm
@ -266,7 +266,7 @@ sub modify_user {
        );
    }
    my %new_props = ();
-    foreach my $prop (qw(ExpireLockOn ExpireForwardAfterLock ExpireDeleteAfterLock)){
+    foreach my $prop (qw(ExpireLockOn ExpireForwardAfterLock ExpireAutoReply ExpireDeleteAfterLock)){
        if (!$self->{cgi}->param($prop) || $self->{cgi}->param($prop) eq ''){
            $acct->delete_prop($prop);
        }