X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fpref%2Fpref-process.html;h=25f30e9a9c2a18855e8820b350fe2e4e0b0ce660;hb=9d55204f876f52e314076f5fa9d1ae15a1639dae;hp=a5e13f062fce948caa1e72c4ecbad16545948b95;hpb=8591b5a157a2ee24c1467718eb0ce731a388f5c1;p=freeside.git diff --git a/httemplate/pref/pref-process.html b/httemplate/pref/pref-process.html index a5e13f062..25f30e9a9 100644 --- a/httemplate/pref/pref-process.html +++ b/httemplate/pref/pref-process.html @@ -27,20 +27,26 @@ % % } % +% my %param = $access_user->options; +% % #XXX autogen -% my @paramlist = qw( menu_position email_address +% 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; +% scalar($cgi->param($_)) =~ /^[,.\-\@\w]*$/ && next; % $error ||= "Illegal value for parameter $_"; % 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);