diff options
| author | jeff <jeff> | 2007-03-21 01:21:39 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-03-21 01:21:39 +0000 |
| commit | 8591b5a157a2ee24c1467718eb0ce731a388f5c1 (patch) | |
| tree | 60123b9b13666010bcb61aaae1c4f6f47a8cac24 /httemplate/pref/pref-process.html | |
| parent | 67569d160196abf84e889514b1b2f90053548c93 (diff) | |
ticket 1427, automatically email excel a/r report
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 ) { |