fix TeleAPI import (what kind of crack was Christopher smoking that he couldn't fix...

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

diff --git a/FS/FS/cdr/zintel.pm b/FS/FS/cdr/zintel.pm
index 1d2236c..eb08038 100644 (file)
--- a/FS/FS/cdr/zintel.pm
+++ b/FS/FS/cdr/zintel.pm
@@ -16,7 +16,17 @@ use Date::Parse;
 
        'accountcode',  #customer
        'src',          #anumber
-       'dst',          #bnumber
+                sub { my ($cdr, $dst) = @_; # Handling cosolidated local calls in the CDR formats
+
+                       my $src = $cdr->src;
+
+                       if ($dst =~ /^64\/U$/) {
+                       $cdr->set('dst', $src);
+                       } else {
+                       $cdr->set('dst', $dst);
+                       }
+                       }, #bnumber
+
                  sub { my ($cdr, $calldate) = @_;
                         $cdr->set('calldate', $calldate);