in CallPlus CDR import, mark international calls as international, #72264

diff --git a/FS/FS/cdr/callplus.pm b/FS/FS/cdr/callplus.pm
index fa6c799..1fcfa63 100644 (file)
--- 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
   ],
 );