From feae6f6dff962a092787f0ad4c277b3d1fc20c1f Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Wed, 21 Mar 2007 01:35:32 +0000
Subject: ticket 1427, automatically email excel a/r report (backport)

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

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

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