diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-02-07 21:09:11 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-02-07 21:09:11 -0800 |
| commit | b808053966fd3c43edefa1b7c4b93cbeb7cf546e (patch) | |
| tree | 871fc6df930b7939d72b9ad975453179273cd418 /FS/FS/prospect_main.pm | |
| parent | d14c7526763013113dcddd4ec60c383a5f1c5473 (diff) | |
fix leading and trailing spaces in customer,, contact, prospect names and companies, RT#19860
Diffstat (limited to 'FS/FS/prospect_main.pm')
| -rw-r--r-- | FS/FS/prospect_main.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/FS/FS/prospect_main.pm b/FS/FS/prospect_main.pm index b5d51d3..a04af86 100644 --- a/FS/FS/prospect_main.pm +++ b/FS/FS/prospect_main.pm @@ -208,6 +208,12 @@ sub check { ; return $error if $error; + my $company = $self->company; + $company =~ s/^\s+//; + $company =~ s/\s+$//; + $company =~ s/\s+/ /g; + $self->company($company); + $self->SUPER::check; } |