freeside/FS/FS/part_export http.pm,1.2,1.3 infostreet.pm,1.15,1.16 shellcommands.pm,1.31,1.32

[Kristian Hoffmann]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory pouncequick:/tmp/cvs-serv1286/FS/FS/part_export

Modified Files:
	http.pm infostreet.pm shellcommands.pm 
Log Message:
Added support for FAX invoice destinations using a HylaFAX server.
Faxing plain text invoices is not supported.


Index: infostreet.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/infostreet.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- infostreet.pm	24 Mar 2004 14:28:48 -0000	1.15
+++ infostreet.pm	21 Mar 2005 22:13:37 -0000	1.16
@@ -67,7 +67,7 @@
     $_ => $cust_main->getfield( $infostreet2cust_main{$_} );
   } keys %infostreet2cust_main );
 
-  my @emails = grep { $_ ne 'POST' } $cust_main->invoicing_list;
+  my @emails = grep { $_ !~ /^(POST|FAX)$/ } $cust_main->invoicing_list;
   $contact_info{'email'} = $emails[0] if @emails;
 
   #this one is kinda noment-specific

Index: http.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/http.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- http.pm	24 Mar 2004 14:28:48 -0000	1.2
+++ http.pm	21 Mar 2005 22:13:37 -0000	1.3
@@ -18,7 +18,7 @@
     type    => 'textarea',
     default => join("\n",
       'DomainName $svc_x->domain',
-      'Email ( grep { $_ ne "POST" } $svc_x->cust_svc->cust_pkg->cust_main->invoicing_list)[0]',
+      'Email ( grep { $_ !~ /^(POST|FAX)$/ } $svc_x->cust_svc->cust_pkg->cust_main->invoicing_list)[0]',
       'test 1',
       'reseller $svc_x->cust_svc->cust_pkg->part_pkg->pkg =~ /reseller/i',
     ),

Index: shellcommands.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/shellcommands.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- shellcommands.pm	10 May 2004 13:17:23 -0000	1.31
+++ shellcommands.pm	21 Mar 2005 22:13:37 -0000	1.32
@@ -216,7 +216,7 @@
 
   my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
   if ( $cust_pkg ) {
-    $email = ( grep { $_ ne 'POST' } $cust_pkg->cust_main->invoicing_list )[0];
+    $email = ( grep { $_ !~ /^(POST|FAX)$/ } $cust_pkg->cust_main->invoicing_list )[0];
   } else {
     $email = '';
   }