summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark Wells <mark@freeside.biz>2015-05-12 17:16:08 -0700
committerMark Wells <mark@freeside.biz>2015-05-12 17:16:08 -0700
commit672c4452d590bc853f21f016b291496651156c8b (patch)
tree4a3c9ddb653a40976c6fbab112ab3b69c4881021
parent1feb4dcca56c44429f7b1ea74a0431ca51185082 (diff)
PBXware CDRs: strip trailing non-numeric stuff from src/dst numbers, #34575
-rw-r--r--FS/FS/part_export/pbxware.pm5
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;