diff options
author | jeff <jeff> | 2009-02-15 17:20:01 +0000 |
---|---|---|
committer | jeff <jeff> | 2009-02-15 17:20:01 +0000 |
commit | fe0a624227782419e509c35743a0d4023fe60a21 (patch) | |
tree | 14179a4c6be5729c0f625fd6b37c8e46d4e35614 | |
parent | 6def252c81bf70ae48a8552bc5967b4060fc97a6 (diff) |
trim whitespace on import
-rw-r--r-- | FS/FS/tax_rate.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/tax_rate.pm b/FS/FS/tax_rate.pm index 291e2d5c7..1aafa332e 100644 --- a/FS/FS/tax_rate.pm +++ b/FS/FS/tax_rate.pm @@ -560,9 +560,12 @@ sub batch_import { /^(\d{4})(\d{2})(\d{2})$/ && ($r="$1/$2/$3"); $r; }; - $column_callbacks[8] = $date_format; + my $trim = sub { my $r = shift; $r =~ s/^\s*//; $r =~ s/\s*$//; $r }; + $date_format; push @column_lengths, qw( 10 1 1 8 8 5 8 8 8 1 2 2 30 8 8 10 2 8 2 1 2 2 ); push @column_lengths, 1 if $format eq 'cch-update'; + push @column_callbacks, $trim foreach (@columnlengths); # 5, 6, 15, 17 esp + $column_callbacks[8] = $date_format; } my $line; |