X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fenswitch.pm;h=8026293e278713b90f5ba51ffa06133dbeb49b09;hb=103dfde149eec5034696d073253255f508a1be78;hp=1ef884c3f76764d3c305ba215a46d9af7e86d2f8;hpb=fe1596e131a981a57391eb60bb175bb6f95374e4;p=freeside.git diff --git a/FS/FS/cdr/enswitch.pm b/FS/FS/cdr/enswitch.pm index 1ef884c3f..8026293e2 100644 --- a/FS/FS/cdr/enswitch.pm +++ b/FS/FS/cdr/enswitch.pm @@ -20,7 +20,12 @@ use FS::cdr_type; #Calling customer, Calling type 'src', #Calling number skip(1), #Called type - 'dst', #Called number + + 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, @@ -29,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, @@ -48,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;