From 69fe663ff9595ed47a77826920ffdda8a45a4d23 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 30 May 2009 11:21:01 +0000
Subject: [PATCH] clid is base-64 encoded, huh, RT#5229

---
 FS/FS/cdr/transnexus.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/FS/FS/cdr/transnexus.pm b/FS/FS/cdr/transnexus.pm
index 573a8b16d..0ed7ad4ef 100644
--- a/FS/FS/cdr/transnexus.pm
+++ b/FS/FS/cdr/transnexus.pm
@@ -3,6 +3,7 @@ package FS::cdr::transnexus;
 use strict;
 use base qw( FS::cdr );
 use vars qw( %info );
+use MIME::Base64;
 use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
 
 %info = (
@@ -14,12 +15,12 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
   #listref of what to do with each field from the CDR, in order
   'import_fields' => [
 
-    _cdr_date_parser_maker('startddate'), #O_CallStartTime
+    _cdr_date_parser_maker('startddate'),        #O_CallStartTime
     'src',            #CallingNumberReported
     'dst',            #CalledNumberReported
     'channel',        #SourceDeviceName      / O_ReportingDeviceName
     'dstchannel',     #O_ReportingDeviceName / DestinationDeviceName
-    'clid',           #CallId
+    sub { $_[0]->clid( decode_base64($_[1]) ); }, #CallId
     'uniqueid',       #TransactionId
     'duration',       #RatedDuration
     'billsec',        #O_BillingDuration
-- 
2.11.0