X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fenswitch.pm;h=8026293e278713b90f5ba51ffa06133dbeb49b09;hb=HEAD;hp=9d222dffcfb7d62889dc8b1140ea4f0834e942ad;hpb=c73b745e19b025724544970591507113b1c137a8;p=freeside.git

diff --git a/FS/FS/cdr/enswitch.pm b/FS/FS/cdr/enswitch.pm
index 9d222dffc..8026293e2 100644
--- a/FS/FS/cdr/enswitch.pm
+++ b/FS/FS/cdr/enswitch.pm
@@ -21,10 +21,9 @@ use FS::cdr_type;
     'src',          #Calling number     
     skip(1),        #Called type
 
-    sub { my ($cdr, $dst) = @_; $dst =~ s/*//g;
-
+    sub { my ($cdr, $dst) = @_; 
+        $dst =~ s/\*//g;
 	$cdr->set('dst', $dst);
-
     },              #Called number
 
     skip(14),       #Destination customer, Destination type
@@ -35,7 +34,13 @@ use FS::cdr_type;
                     #Inbound called type,
     		    #Inbound called number,
                     #Inbound destination type, Inbound destination number,
-    'disposition',  #Outbound calling type,
+    sub { my ($cdr, $data) = @_;
+	$data ||= 'none';
+
+ 	my $cdr_type = qsearchs('cdr_type', { 'cdrtypename' => $data } );
+	$cdr->set('cdrtypenum', $cdr_type->cdrtypenum) if $cdr_type; 
+                } , #Outbound calling type,
+
       skip(11),     #Outbound calling number,
                     #Outbound called type, Outbound called number,
                     #Outbound destination type, Outbound destination number,
@@ -54,23 +59,4 @@ use FS::cdr_type;
 
 sub skip { map {''} (1..$_[0]) }
 
-#create CDR types with names matching in_calling_type valuesj - 'none'
-# (without the quotes) for blank
-our %cdr_type = ();
-sub in_calling_type {
-  my ($record, $data) = @_;
-
-  $data ||= 'none';
-
-  my $cdr_type = exists($cdr_type{$data})
-                   ? $cdr_type{$data}
-                   : qsearchs('cdr_type', { 'cdrtypename' => $data } );
-
-  $cdr_type{$data} = $cdr_type;
-
-  $record->set('in_calling_type', $data); #for below
-  $record->set('cdrtypenum', $cdr_type->cdrtypenum) if $cdr_type;
-
-}
-
 1;