freeside/httemplate/edit cust_main.cgi,1.53,1.54

[Kristian Hoffmann]

Update of /home/cvs/cvsroot/freeside/httemplate/edit
In directory pouncequick:/tmp/cvs-serv1286/httemplate/edit

Modified Files:
	cust_main.cgi 
Log Message:
Added support for FAX invoice destinations using a HylaFAX server.
Faxing plain text invoices is not supported.


Index: cust_main.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/cust_main.cgi,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- cust_main.cgi	4 Feb 2005 10:38:15 -0000	1.53
+++ cust_main.cgi	21 Mar 2005 22:13:38 -0000	1.54
@@ -302,8 +302,11 @@
   print qq! CHECKED!
     if ( ! @invoicing_list && ! $conf->exists('disablepostalinvoicedefault') )
        || grep { $_ eq 'POST' } @invoicing_list;
-  print qq!>Postal mail invoice</TD></TR>!;
-  my $invoicing_list = join(', ', grep { $_ ne 'POST' } @invoicing_list );
+  print qq!>Postal mail invoice</TD></TR><TR><TD>!;
+  print qq!<INPUT TYPE="checkbox" NAME="invoicing_list_FAX" VALUE="FAX"!;
+  print qq! CHECKED! if (grep { $_ eq 'FAX' } @invoicing_list);
+  print qq!>FAX invoice</TD></TR>!;
+  my $invoicing_list = join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list );
   print qq!<TR><TD>Email invoice <INPUT TYPE="text" NAME="invoicing_list" VALUE="$invoicing_list"></TD></TR>!;
 
   print "<TR><TD>Billing type</TD></TR>",