diff options
| author | khoff <khoff> | 2005-03-21 22:13:39 +0000 |
|---|---|---|
| committer | khoff <khoff> | 2005-03-21 22:13:39 +0000 |
| commit | 18c025613fa052cf4ba8d484f1296cc2a1719a24 (patch) | |
| tree | 334919583d3ecdd78413ad7405b6092e62f614ad /FS/FS/part_export | |
| parent | 30189fa2e5987bafeb4714a83b7f130c568b221c (diff) | |
Added support for FAX invoice destinations using a HylaFAX server.
Faxing plain text invoices is not supported.
Diffstat (limited to 'FS/FS/part_export')
| -rw-r--r-- | FS/FS/part_export/http.pm | 2 | ||||
| -rw-r--r-- | FS/FS/part_export/infostreet.pm | 2 | ||||
| -rw-r--r-- | FS/FS/part_export/shellcommands.pm | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/part_export/http.pm b/FS/FS/part_export/http.pm index 0be2a0f..55d8329 100644 --- a/FS/FS/part_export/http.pm +++ b/FS/FS/part_export/http.pm @@ -18,7 +18,7 @@ tie my %options, 'Tie::IxHash', 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', ), diff --git a/FS/FS/part_export/infostreet.pm b/FS/FS/part_export/infostreet.pm index 309e7ce..ef16c7c 100644 --- a/FS/FS/part_export/infostreet.pm +++ b/FS/FS/part_export/infostreet.pm @@ -67,7 +67,7 @@ sub _export_insert { $_ => $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 diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm index 4f201cf..665ec47 100644 --- a/FS/FS/part_export/shellcommands.pm +++ b/FS/FS/part_export/shellcommands.pm @@ -216,7 +216,7 @@ sub _export_command { 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 = ''; } |