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/cust_main_invoice.pm | |
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/cust_main_invoice.pm')
-rw-r--r-- | FS/FS/cust_main_invoice.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/cust_main_invoice.pm b/FS/FS/cust_main_invoice.pm index 3cabd3a64..03863b83f 100644 --- a/FS/FS/cust_main_invoice.pm +++ b/FS/FS/cust_main_invoice.pm @@ -43,7 +43,7 @@ FS::Record. The following fields are currently supported: =item custnum - customer (see L<FS::cust_main>) -=item dest - Invoice destination: If numeric, a svcnum (see L<FS::svc_acct>), if string, a literal email address, or `POST' to enable mailing (the default if no cust_main_invoice records exist) +=item dest - Invoice destination: If numeric, a svcnum (see L<FS::svc_acct>), if string, a literal email address, `POST' to enable mailing (the default if no cust_main_invoice records exist), or `FAX' to enable faxing via a HylaFAX server. =back @@ -127,7 +127,7 @@ sub checkdest { my $error = $self->ut_text('dest'); return $error if $error; - if ( $self->dest eq 'POST' ) { + if ( $self->dest =~ /^(POST|FAX)$/ ) { #contemplate our navel } elsif ( $self->dest =~ /^(\d+)$/ ) { return "Unknown local account (specified by svcnum: ". $self->dest. ")" @@ -144,7 +144,7 @@ sub checkdest { =item address -Returns the literal email address for this record (or `POST'). +Returns the literal email address for this record (or `POST' or `FAX'). =cut |