diff options
author | Mark Wells <mark@freeside.biz> | 2015-05-12 17:16:08 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-05-12 17:16:08 -0700 |
commit | 672c4452d590bc853f21f016b291496651156c8b (patch) | |
tree | 4a3c9ddb653a40976c6fbab112ab3b69c4881021 | |
parent | 1feb4dcca56c44429f7b1ea74a0431ca51185082 (diff) |
PBXware CDRs: strip trailing non-numeric stuff from src/dst numbers, #34575
-rw-r--r-- | FS/FS/part_export/pbxware.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/part_export/pbxware.pm b/FS/FS/part_export/pbxware.pm index 3da4c2ad1..36b1a2a82 100644 --- a/FS/FS/part_export/pbxware.pm +++ b/FS/FS/part_export/pbxware.pm @@ -140,6 +140,11 @@ sub import_cdrs { uniqueid => $uniqueid, ); @hash{@names} = @$row; + # strip non-numeric junk that sometimes gets appended to these (it + # causes problems creating Freeside detail records) + foreach (qw(src dst)) { + $hash{$_} =~ s/\D*$//; + } my $cdr = FS::cdr->new(\%hash); $error = $cdr->insert; |