[freeside-commits] freeside/FS/FS cdr.pm,1.5.2.10,1.5.2.11

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cdr.pm 
Log Message:
add initial netcentrex CDR format

Index: cdr.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr.pm,v
retrieving revision 1.5.2.10
retrieving revision 1.5.2.11
diff -u -d -r1.5.2.10 -r1.5.2.11
--- cdr.pm	19 Aug 2008 11:35:55 -0000	1.5.2.10
+++ cdr.pm	6 Oct 2008 15:28:15 -0000	1.5.2.11
@@ -630,7 +630,11 @@
   if ( $type eq 'csv' ) {
     eval "use Text::CSV_XS;";
     die $@ if $@;
-    $parser = new Text::CSV_XS;
+    my %attr = ();
+    foreach ( grep exists($info->{$_}), qw( sep_char ) ) {
+      $attr{$_} = $info->{$_};
+    }
+    $parser = new Text::CSV_XS \%attr;
   } elsif ( $type eq 'fixedlength' ) {
     eval "use Parse::FixedLength;";
     die $@ if $@;