[freeside-commits] freeside/httemplate/pref pref.html, 1.4, 1.5 pref-process.html, 1.4, 1.5

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/httemplate/pref
In directory wavetail:/tmp/cvs-serv25726/httemplate/pref

Modified Files:
	pref.html pref-process.html 
Log Message:
ticket 1427, automatically email excel a/r report

Index: pref-process.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/pref/pref-process.html,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- pref-process.html	8 Feb 2007 22:08:15 -0000	1.4
+++ pref-process.html	21 Mar 2007 01:21:39 -0000	1.5
@@ -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 ) {

Index: pref.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/pref/pref.html,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- pref.html	16 Mar 2007 01:35:55 -0000	1.4
+++ pref.html	21 Mar 2007 01:21:39 -0000	1.5
@@ -43,6 +43,20 @@
 <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>
+
+
 Vonage integration (see <a href="https://secure.click2callu.com/">Click2Call</a>)
 <% ntable("#cccccc",2) %>
 
@@ -81,5 +95,8 @@
 ( $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>