[freeside-commits] freeside/FS/FS tax_rate.pm,1.19,1.20

Jeff Finucane,420,, jeff at wavetail.420.am
Sun Feb 15 09:20:04 PST 2009


Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv17204

Modified Files:
	tax_rate.pm 
Log Message:
trim whitespace on import

Index: tax_rate.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/tax_rate.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- tax_rate.pm	12 Feb 2009 19:48:24 -0000	1.19
+++ tax_rate.pm	15 Feb 2009 17:20:01 -0000	1.20
@@ -560,9 +560,12 @@
                             /^(\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;



More information about the freeside-commits mailing list