From: levinse <levinse>
Date: Mon, 20 Jun 2011 20:24:16 +0000 (+0000)
Subject: cdr/freeside_description_default.pm: parse destination correctly, RT13141
X-Git-Tag: freeside_2_3_0~104
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=1651dd5ba4114128aa0b0718c944395cdc84f274

cdr/freeside_description_default.pm: parse destination correctly, RT13141
---

diff --git a/FS/FS/cdr/freeside_description_default.pm b/FS/FS/cdr/freeside_description_default.pm
index bbac86fdc..e44f404b9 100644
--- a/FS/FS/cdr/freeside_description_default.pm
+++ b/FS/FS/cdr/freeside_description_default.pm
@@ -37,9 +37,9 @@ use FS::cdr;
     # Number
     sub {
         my($cdr, $number) = @_;
-        $number =~ /(\d+)\s(\d+)$/ 
+        $number =~ /(\+|)(\d+)\s(\d+)$/ 
             or die "unparsable number: $number"; #maybe we shouldn't die...
-        $cdr->dst("$1$2");
+        $cdr->dst("$1$2$3");
     },           
 
     'description',      # Destination (regionname)