quick list of area codes and a kludge to print DA numbers for all of them

[freeside.git] / httemplate / pref / pref-process.html

diff --git a/httemplate/pref/pref-process.html b/httemplate/pref/pref-process.html
index 221edc6..9661516 100644 (file)
--- a/httemplate/pref/pref-process.html
+++ b/httemplate/pref/pref-process.html
@@ -5,7 +5,7 @@
 %           qw(_password new_password new_password2)
 %    ) {
 %
-%   my $access_user = qsearchs( 'access_user', {
+%   $access_user = qsearchs( 'access_user', {
 %     'username'  => getotaker,
 %     '_password' => $cgi->param('_password'),
 %   } );
@@ -27,10 +27,27 @@
 %
 % }
 %
-% $error ||= $access_user->replace( { map { $_ => scalar($cgi->param($_)) }
-%                                         qw( menu_position ) #XXX autogen
-%                                   }
-%                                 );
+% my %param = $access_user->options;
+%
+% #XXX autogen
+% my @paramlist = qw( menu_position
+%                     email_address
+%                     vonage-fromnumber vonage-username vonage-password
+%                     show_pkgnum show_db_profile save_db_profile
+%                     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);