diff options
| author | ivan <ivan> | 2008-09-14 20:24:53 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-09-14 20:24:53 +0000 |
| commit | 92e4952763f6c4ab4fd9a773315653b389ba872f (patch) | |
| tree | 9d61856d724371f2e07969ed6f6e94dfc891fc03 /FS/FS/cust_main_invoice.pm | |
| parent | 0f11d8bc92f250b608a0ddcada330bed9b9d4c7d (diff) | |
silently strip out leading and trailing spaces from invoicing email addresses instead of throwing an error
Diffstat (limited to 'FS/FS/cust_main_invoice.pm')
| -rw-r--r-- | FS/FS/cust_main_invoice.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/cust_main_invoice.pm b/FS/FS/cust_main_invoice.pm index 11d5a44..71148ca 100644 --- a/FS/FS/cust_main_invoice.pm +++ b/FS/FS/cust_main_invoice.pm @@ -132,7 +132,7 @@ sub checkdest { } elsif ( $self->dest =~ /^(\d+)$/ ) { return "Unknown local account (specified by svcnum: ". $self->dest. ")" unless qsearchs( 'svc_acct', { 'svcnum' => $self->dest } ); - } elsif ( $self->dest =~ /^([\w\.\-\&\+]+)\@(([\w\.\-]+\.)+\w+)$/ ) { + } elsif ( $self->dest =~ /^\s*([\w\.\-\&\+]+)\@(([\w\.\-]+\.)+\w+)\s*$/ ) { my($user, $domain) = ($1, $2); $self->dest("$1\@$2"); } else { |