event refactor, landing on HEAD!

1 files changed, 7 insertions, 3 deletions

diff --git a/httemplate/pref/pref-process.html b/httemplate/pref/pref-process.html
index 3f9b70686..25f30e9a9 100644
--- a/httemplate/pref/pref-process.html
+++ b/httemplate/pref/pref-process.html
@@ -27,6 +27,8 @@
 %
 % }
 %
+% my %param = $access_user->options;
+%
 % #XXX autogen
 % my @paramlist = qw( menu_position
 %                     email_address
@@ -40,9 +42,11 @@
 %   last;
 % }
 %
-% $error ||= $access_user->replace( {
-%   map { $_ => scalar($cgi->param($_)) } @paramlist,
-% } );
+% foreach (@paramlist) {
+%   $param{$_} = scalar($cgi->param($_));
+% }
+%
+% $error ||= $access_user->replace( \%param );
 %
 % if ( $error ) {
 %   $cgi->param('error', $error);