From 3ac361c2b6b52209436b828be21ef8c416ba8ffc Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Wed, 19 Oct 2016 15:49:41 -0700
Subject: [PATCH] in CallPlus CDR import, mark international calls as
 international, #72264

---
 FS/FS/cdr/callplus.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/FS/FS/cdr/callplus.pm b/FS/FS/cdr/callplus.pm
index fa6c799ad..1fcfa6335 100644
--- a/FS/FS/cdr/callplus.pm
+++ b/FS/FS/cdr/callplus.pm
@@ -51,7 +51,14 @@ use Time::Local 'timelocal';
       $value =~ s/^\$//;
       $cdr->upstream_price($value);
     },
-    skip(4),              # Smartcode, Smartcode Description, Type, SubType
+    skip(2),              # Smartcode, Smartcode Description
+    sub {                 # Type. "I" = international, which matters.
+      my ($cdr, $value) = @_;
+      if ($value eq 'I') {
+        $cdr->set('dst', '+' . $cdr->dst);
+      } # else leave it alone
+    },
+    '',                   # SubType
   ],
 );
 
-- 
2.11.0