diff options
Diffstat (limited to 'httemplate/pref/pref.html')
| -rw-r--r-- | httemplate/pref/pref.html | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/httemplate/pref/pref.html b/httemplate/pref/pref.html index 507a897d7..ec8aefd80 100644 --- a/httemplate/pref/pref.html +++ b/httemplate/pref/pref.html @@ -41,6 +41,20 @@ Interface </TABLE> <BR> +Email Address + <% ntable("#cccccc",2) %> + + <TR> + <TH>Email Address(es) (comma separated) </TH> + <TD> + <TD><INPUT TYPE="text" NAME="email_address" VALUE="<% $email_address %>"> + </TD> + </TR> + + </TABLE> + <BR> + + % foreach my $prop (qw( height width availHeight availWidth colorDepth )) { <INPUT TYPE="hidden" NAME="<% $prop %>" VALUE=""> <SCRIPT TYPE="text/javascript"> @@ -57,5 +71,8 @@ Interface ( $FS::CurrentUser::CurrentUser->option('menu_position') || 'left' ) =~ /^(\w+)$/ or die "illegal menu_position"; my $menu_position = $1; +( $FS::CurrentUser::CurrentUser->option('email_address') ) + =~ /^([,\w\@.]*)$/ or die "illegal email_address"; #too late +my $email_address = $1; </%init> |