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	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";