diff options
Diffstat (limited to 'httemplate/pref/pref-process.html')
| -rw-r--r-- | httemplate/pref/pref-process.html | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/httemplate/pref/pref-process.html b/httemplate/pref/pref-process.html index ed3350971..a5e13f062 100644 --- a/httemplate/pref/pref-process.html +++ b/httemplate/pref/pref-process.html @@ -27,12 +27,19 @@ % % } % +% #XXX autogen +% my @paramlist = qw( menu_position email_address +% height width availHeight availWidth colorDepth +% ); +% +% foreach (@paramlist) { +% scalar($cgi->param($_)) =~ /^[,.\@\w]*$/ && next; +% $error ||= "Illegal value for parameter $_"; +% last; +% } +% % $error ||= $access_user->replace( { -% map { $_ => scalar($cgi->param($_)) } -% #XXX autogen -% qw( menu_position -% height width availHeight availWidth colorDepth -% ) +% map { $_ => scalar($cgi->param($_)) } @paramlist, % } ); % % if ( $error ) { |