Ticket 33385 Changes to enswitch cdr import modules

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

diff --git a/FS/FS/cdr/enswitch.pm b/FS/FS/cdr/enswitch.pm
index 26d2782..9d222df 100644 (file)
--- a/FS/FS/cdr/enswitch.pm
+++ b/FS/FS/cdr/enswitch.pm
@@ -12,16 +12,22 @@ use FS::cdr_type;
   'header'        => 2,
   'type'          => 'csv',
   'import_fields' => [
-    'disposition',  #Status
+    'dcontext',     #Status
     'startdate',    #Start, already a unix timestamp
     skip(2),        #Start date, Start time
     'enddate',      #End
     skip(4),        #End date, End time
                     #Calling customer, Calling type
     'src',          #Calling number     
-    'dcontext',     #Called type
-    'dst',          #Called number
-    skip(26),       #Destination customer, Destination type
+    skip(1),        #Called type
+
+    sub { my ($cdr, $dst) = @_; $dst =~ s/*//g;
+
+       $cdr->set('dst', $dst);
+
+    },              #Called number
+
+    skip(14),       #Destination customer, Destination type
                     #Destination number
                     #Destination group ID, Destination group name,
                    #Inbound calling type,
@@ -29,7 +35,8 @@ use FS::cdr_type;
                     #Inbound called type,
                    #Inbound called number,
                     #Inbound destination type, Inbound destination number,
-                    #Outbound calling type, Outbound calling number,
+    'disposition',  #Outbound calling type,
+      skip(11),     #Outbound calling number,
                     #Outbound called type, Outbound called number,
                     #Outbound destination type, Outbound destination number,
                     #Internal calling type, Internal calling number,