diff options
Diffstat (limited to 'httemplate/pref')
| -rw-r--r-- | httemplate/pref/pref-process.html | 10 |
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); |