projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0f11d8b
)
silently strip out leading and trailing spaces from invoicing email addresses instead...
author
ivan
<ivan>
Sun, 14 Sep 2008 20:24:53 +0000
(20:24 +0000)
committer
ivan
<ivan>
Sun, 14 Sep 2008 20:24:53 +0000
(20:24 +0000)
FS/FS/cust_main_invoice.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main_invoice.pm
b/FS/FS/cust_main_invoice.pm
index
11d5a44
..
71148ca
100644
(file)
--- 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 =~ /^(\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 {
my($user, $domain) = ($1, $2);
$self->dest("$1\@$2");
} else {