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
khoff at pouncequick.420.am
Mon Mar 21 14:13:40 PST 2005
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 = '';
}
More information about the freeside-commits
mailing list