X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fpref%2Fpref-process.html;h=25f30e9a9c2a18855e8820b350fe2e4e0b0ce660;hb=9509e5bfb7f9331303153cac24d7bfecbe2ea9f1;hp=ed3350971b5dbf40a7b099eaeef7bb0983c5b895;hpb=79f1e3f6d8172bbb4e85bc063f19ba0010c9253f;p=freeside.git

diff --git a/httemplate/pref/pref-process.html b/httemplate/pref/pref-process.html
index ed3350971..25f30e9a9 100644
--- a/httemplate/pref/pref-process.html
+++ b/httemplate/pref/pref-process.html
@@ -27,13 +27,26 @@
 %
 % }
 %
-% $error ||= $access_user->replace( {
-%   map { $_ => scalar($cgi->param($_)) }
-%       #XXX autogen
-%       qw( menu_position
-%           height width availHeight availWidth colorDepth
-%         )
-% } );
+% my %param = $access_user->options;
+%
+% #XXX autogen
+% my @paramlist = qw( menu_position
+%                     email_address
+%                     vonage-fromnumber vonage-username vonage-password
+%                     height width availHeight availWidth colorDepth
+%                   );
+%
+% foreach (@paramlist) {
+%   scalar($cgi->param($_)) =~ /^[,.\-\@\w]*$/ && next;
+%   $error ||= "Illegal value for parameter $_";
+%   last;
+% }
+%
+% foreach (@paramlist) {
+%   $param{$_} = scalar($cgi->param($_));
+% }
+%
+% $error ||= $access_user->replace( \%param );
 %
 % if ( $error ) {
 %   $cgi->param('error', $error);