From 8591b5a157a2ee24c1467718eb0ce731a388f5c1 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Wed, 21 Mar 2007 01:21:39 +0000
Subject: ticket 1427, automatically email excel a/r report

---
 httemplate/pref/pref-process.html | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

(limited to 'httemplate/pref/pref-process.html')

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 ) {
-- 
cgit v1.2.1