backup the schema for tables we don't need the data from. RT#85959

[freeside.git] / FS / FS / cdr / cx3.pm

diff --git a/FS/FS/cdr/cx3.pm b/FS/FS/cdr/cx3.pm
index a1e2e93..07d8967 100644 (file)
--- a/FS/FS/cdr/cx3.pm
+++ b/FS/FS/cdr/cx3.pm
@@ -30,13 +30,18 @@ use Date::Parse;
        skip(1),                
        sub { my ($cdr, $calldate, $param) = @_;
 
-               $cdr->set('calldate', $calldate);
-       },              #date
+                my $date = str2time($calldate);
+                $cdr->set('startdate', $date);
+
+        },              #date
        skip(4),          
        'accountcode',  # AccountCode
        skip(6),                
        'src',          # source
-       'dst',          # destination
+       sub { my ($cdr, $dst, $param) = @_;
+               $dst =~ s/#//;
+               $cdr->set('dst', $dst);
+       },              # destination
 
   ],
 );