diff options
| author | levinse <levinse> | 2011-06-20 20:24:17 +0000 |
|---|---|---|
| committer | levinse <levinse> | 2011-06-20 20:24:17 +0000 |
| commit | 5c112132e153272243b77ce3b0bfef4581a6f03b (patch) | |
| tree | 4b6df198a26952ee148a3ec4221ea5db8fff0d58 | |
| parent | e9c099ad657b05eff3e3f3c7f18b8dc8abcbe98e (diff) | |
cdr/freeside_description_default.pm: parse destination correctly, RT13141
| -rw-r--r-- | FS/FS/cdr/freeside_description_default.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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) |