smeserver-password/contribs8/smeserver-password-1.0.0-epoch.patch

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
--- 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
+++ smeserver-password-1.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/passwordopt.pm        2013-06-22 20:51:22.000000000 -0400
@@ -171,7 +171,13 @@ $key->set_prop('PwdWarn', $q->param('Pwd
 $key->set_prop('LockAccount', $q->param('LockAccount'));
 $key->set_prop('DateReset', $q->param('DateReset'));
 
-my @cusers   = $q->param('PasswordAge');
+# this way something goes wrong when deselecting all one stays
+#my @cusers   = $q->param('PasswordAge');
+# workaround
+use CGI;
+my $cgi = CGI->new;
+my @cusers = $cgi->param('PasswordAge');
+
 my %opt1 ;
 foreach (@cusers) {
        $opt1{$_}="on";
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";