diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-01-18 14:33:32 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-01-18 14:33:32 -0800 |
| commit | 544ca6128192e61a38a431cff8d732bd767ed09f (patch) | |
| tree | e0b084aeb51c728d03576552b1c80605ad4496db /FS/FS/cust_main.pm | |
| parent | 502b3acb4b097d252377b99ddbbca1caae5af1a7 (diff) | |
prohibit & in ACH bank name, RT#26634
Diffstat (limited to 'FS/FS/cust_main.pm')
| -rw-r--r-- | FS/FS/cust_main.pm | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 0a93764c1..9e3c285c2 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -2030,9 +2030,17 @@ sub check { ) { $self->payname( $self->first. " ". $self->getfield('last') ); } else { - $self->payname =~ /^([\w \,\.\-\'\&]*)$/ - or return gettext('illegal_name'). " payname: ". $self->payname; - $self->payname($1); + + if ( $self->payby =~ /^(CHEK|DCHK)$/ ) { + $self->payname =~ /^([\w \,\.\-\']*)$/ + or return gettext('illegal_name'). " payname: ". $self->payname; + $self->payname($1); + } else { + $self->payname =~ /^([\w \,\.\-\'\&]*)$/ + or return gettext('illegal_name'). " payname: ". $self->payname; + $self->payname($1); + } + } ### end of stuff moved to cust_payby |