Fix ExpireWarnUser prop name

9 years ago · 8a5bcc850c
parent c005e39af3
commit 8a5bcc850c
2 changed files with 2 additions and 2 deletions
--- a/root/etc/e-smith/web/functions/expireaccounts
+++ b/root/etc/e-smith/web/functions/expireaccounts
@ -80,7 +80,7 @@ __DATA__
            <description>DESC_LOCK_ON_DATE</description>
            <label>LABEL_LOCK_ON_DATE</label>
        </field>
-        <field type="select" id="WarnUsers" value="get_user_bool('WarnUser')" options="'enabled' => 'ENABLED', 'disabled' => 'DISABLED'">
+        <field type="select" id="ExpireWarnUser" value="get_user_bool('ExpireWarnUser')" options="'enabled' => 'ENABLED', 'disabled' => 'DISABLED'">
            <description>DESC_WARN_USER</description>
            <label>LABEL_WARN_USER</label>
        </field>
--- a/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm
+++ b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm
@ -271,7 +271,7 @@ sub modify_user {
        );
    }
    my %new_props = ();
-    foreach my $prop (qw(ExpireLockOn ExpireForwardAfterLock ExpireAutoReply ExpireDeleteAfterLock WarnUser)){
+    foreach my $prop (qw(ExpireLockOn ExpireForwardAfterLock ExpireAutoReply ExpireDeleteAfterLock ExpireWarnUser)){
        if (!$self->{cgi}->param($prop) || $self->{cgi}->param($prop) eq ''){
            $acct->delete_prop($prop);
        }