%
% }
%
+% my %param = $access_user->options;
+%
% #XXX autogen
-% my @paramlist = qw( menu_position
+% my @paramlist = qw( menu_position show_pkgnum
% email_address
% vonage-fromnumber vonage-username vonage-password
% height width availHeight availWidth colorDepth
% 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);