1 |
unnilennium |
1.1 |
diff -up smeserver-password-1.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/passwordopt.pm.epoch smeserver-password-1.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/passwordopt.pm |
2 |
|
|
--- smeserver-password-1.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/passwordopt.pm.epoch 2013-06-22 20:22:44.000000000 -0400 |
3 |
|
|
+++ smeserver-password-1.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/passwordopt.pm 2013-06-22 20:51:22.000000000 -0400 |
4 |
|
|
@@ -171,7 +171,13 @@ $key->set_prop('PwdWarn', $q->param('Pwd |
5 |
|
|
$key->set_prop('LockAccount', $q->param('LockAccount')); |
6 |
|
|
$key->set_prop('DateReset', $q->param('DateReset')); |
7 |
|
|
|
8 |
|
|
-my @cusers = $q->param('PasswordAge'); |
9 |
|
|
+# this way something goes wrong when deselecting all one stays |
10 |
|
|
+#my @cusers = $q->param('PasswordAge'); |
11 |
|
|
+# workaround |
12 |
|
|
+use CGI; |
13 |
|
|
+my $cgi = CGI->new; |
14 |
|
|
+my @cusers = $cgi->param('PasswordAge'); |
15 |
|
|
+ |
16 |
|
|
my %opt1 ; |
17 |
|
|
foreach (@cusers) { |
18 |
|
|
$opt1{$_}="on"; |