[freeside-commits] freeside/FS/FS/cdr enswitch.pm,1.1.2.2,1.1.2.3

Mark Wells mark at wavetail.420.am
Wed May 25 16:25:31 PDT 2011


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

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	enswitch.pm 
Log Message:
fix to Enswitch CDR import, #11613

Index: enswitch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/enswitch.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -w -d -r1.1.2.2 -r1.1.2.3
--- enswitch.pm	25 Feb 2011 04:28:19 -0000	1.1.2.2
+++ enswitch.pm	25 May 2011 23:25:29 -0000	1.1.2.3
@@ -23,11 +23,14 @@
     'clid',         #Calling name
     skip(1),        #Called type
     'dst',          #Called number
-    skip(23),       #Destination customer, Destination type
+    skip(5),        #Destination customer, Destination type
                     #Destination number
                     #Destination group ID, Destination group name,
-                    #Inbound calling type, Inbound calling number,
-                    #Inbound called type, Inbound called number,
+    'in_calling_type',  #Inbound calling type,
+    \&in_calling_num,   #Inbound calling number,
+    '',                 #Inbound called type,
+    \&in_called_num,    #Inbound called number,
+    skip(14),
                     #Inbound destination type, Inbound destination number,
                     #Outbound calling type, Outbound calling number,
                     #Outbound called type, Outbound called number,
@@ -46,4 +49,14 @@
 
 sub skip { map {''} (1..$_[0]) }
 
+sub in_calling_num {
+  my ($record, $data) = @_;
+  $record->src($data) if ( ($record->in_calling_type || '') eq 'external' );
+}
+
+sub in_called_num {
+  my ($record, $data) = @_;
+  $record->dst($data) if ( ($record->in_calling_type || '') eq 'external' );
+}
+
 1;



More information about the freeside-commits mailing list