correct regex for importing with id 50, RT#37472

diff --git a/FS/FS/cdr/aapt.pm b/FS/FS/cdr/aapt.pm
index 3c49643..934608c 100644 (file)
--- a/FS/FS/cdr/aapt.pm
+++ b/FS/FS/cdr/aapt.pm
@@ -77,7 +77,7 @@ my %UNIT_SCALE = ( #Table 2.1.4
     'calltypenum',          # usage ID (CUSG)
     sub {                   # ID type
       my ($cdr, $data, $conf, $param) = @_;
-      if ($data !~ /(1|50)/) {
+      if ($data !~ /^(1|50)$/) {
         warn "AAPT: service ID type is not telephone number.\n";
         $param->{skiprow} = 1;
       }