diff options
author | ivan <ivan> | 2009-11-06 01:51:17 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-11-06 01:51:17 +0000 |
commit | 06eed058f975516a57513e6daa6e3ea0e0302ac5 (patch) | |
tree | a7951807ab533915e2d372f4e90466eb2b2388c0 /FS/FS/cust_main_invoice.pm | |
parent | 1c2b820bd8d41fb9620e81faf617adffe85dbd33 (diff) |
add emailinvoice-apostrophe config option to allow apostrophies in invoice email addresses, RT#6464
Diffstat (limited to 'FS/FS/cust_main_invoice.pm')
-rw-r--r-- | FS/FS/cust_main_invoice.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/FS/FS/cust_main_invoice.pm b/FS/FS/cust_main_invoice.pm index 71148ca..ec01842 100644 --- a/FS/FS/cust_main_invoice.pm +++ b/FS/FS/cust_main_invoice.pm @@ -1,7 +1,7 @@ package FS::cust_main_invoice; use strict; -use vars qw(@ISA $conf); +use vars qw(@ISA); use Exporter; use FS::Record qw( qsearchs ); use FS::Conf; @@ -127,12 +127,16 @@ sub checkdest { my $error = $self->ut_text('dest'); return $error if $error; + my $conf = new FS::Conf; + if ( $self->dest =~ /^(POST|FAX)$/ ) { #contemplate our navel } elsif ( $self->dest =~ /^(\d+)$/ ) { return "Unknown local account (specified by svcnum: ". $self->dest. ")" unless qsearchs( 'svc_acct', { 'svcnum' => $self->dest } ); - } elsif ( $self->dest =~ /^\s*([\w\.\-\&\+]+)\@(([\w\.\-]+\.)+\w+)\s*$/ ) { + } elsif ( $conf->exists('emailinvoice-apostrophe') + ? $self->dest =~ /^\s*([\w\.\-\&\+\']+)\@(([\w\.\-]+\.)+\w+)\s*$/ + : $self->dest =~ /^\s*([\w\.\-\&\+]+)\@(([\w\.\-]+\.)+\w+)\s*$/ ){ my($user, $domain) = ($1, $2); $self->dest("$1\@$2"); } else { |