TT#58800 ama exporter: regex for domestic/international

Change-Id: I4e97666d2cde4e64ce538e229cb564f957daa2fa

lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/CDR.pm

@@ -30,7 +30,7 @@ use NGCP::BulkProcessor::Projects::Export::Ama::Ccs::Settings qw(
 
     $switch_number_pattern
     $switch_number_replacement
-    
+
     $terminating_open_digits_6001
 );
 
@@ -685,7 +685,7 @@ sub _create_ama_record {
             originating_open_digits_1 => NGCP::BulkProcessor::Projects::Export::Ama::Format::Fields::SignificantDigitsNextField::get_number_digits_1($ama->{originating}),
             originating_open_digits_2 => NGCP::BulkProcessor::Projects::Export::Ama::Format::Fields::SignificantDigitsNextField::get_number_digits_2($ama->{originating}),
 
-            domestic_international => $NGCP::BulkProcessor::Projects::Export::Ama::Format::Fields::DomesticInternational::INTERNATIONAL, #get_number_domestic_international($context->{destination}),
+            domestic_international => NGCP::BulkProcessor::Projects::Export::Ama::Format::Fields::DomesticInternational::get_number_domestic_international($ama->{terminating}),
 
             terminating_significant_digits => NGCP::BulkProcessor::Projects::Export::Ama::Format::Fields::SignificantDigitsNextField::get_number_length($ama->{terminating}),
             terminating_open_digits_1 => NGCP::BulkProcessor::Projects::Export::Ama::Format::Fields::SignificantDigitsNextField::get_number_digits_1($ama->{terminating}),

lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/settings.cfg

@@ -35,4 +35,6 @@ primary_alias_pattern = 431976
 switch_number_pattern = 43
 switch_number_replacement =
 
-terminating_open_digits_6001 = 4319558290
+terminating_open_digits_6001 = 4319558290
+
+international_destination_pattern = ^(43|49)

lib/NGCP/BulkProcessor/Projects/Export/Ama/Ccs/settings.debug.cfg

@@ -37,4 +37,6 @@ ivr_duration_limit = 5
 switch_number_pattern = 43
 switch_number_replacement =
 
-terminating_open_digits_6001 = 4319558290
+terminating_open_digits_6001 = 4319558290
+
+international_destination_pattern = ^(43|49)

lib/NGCP/BulkProcessor/Projects/Export/Ama/Format/Settings.pm

@@ -39,7 +39,6 @@ our @EXPORT_OK = qw(
     $copy_output_path
     $tempfile_path
 
-    $domestic_destination_pattern
     $international_destination_pattern
 
     $make_dir
@@ -60,7 +59,7 @@ our $tempfile_path = $working_path . 'temp/';
 our $use_tempfiles = 0;
 
 our $domestic_destination_pattern = undef;
-our $international_destination_pattern = undef;
+#our $international_destination_pattern = undef;
 
 our $ama_max_blocks = 1000;
 
@@ -87,9 +86,9 @@ sub update_settings {
         $make_dir = $data->{make_dir} if exists $data->{make_dir};
 
         my $regexp_result;
-        $domestic_destination_pattern = $data->{domestic_destination_pattern} if exists $data->{domestic_destination_pattern};
-        ($regexp_result,$domestic_destination_pattern) = parse_regexp($domestic_destination_pattern,$configfile);
-        $result &= $regexp_result;
+        #$domestic_destination_pattern = $data->{domestic_destination_pattern} if exists $data->{domestic_destination_pattern};
+        #($regexp_result,$domestic_destination_pattern) = parse_regexp($domestic_destination_pattern,$configfile);
+        #$result &= $regexp_result;
         $international_destination_pattern = $data->{international_destination_pattern} if exists $data->{international_destination_pattern};
         ($regexp_result,$international_destination_pattern) = parse_regexp($international_destination_pattern,$configfile);
         $result &= $regexp_result;