MT#58861 /api/headerruleconditions accept values as a list of strings

* {"values:", ["value1", "value2"]} is not accepted by
  /api/headerruleconditions
* the previous behaviour of {"values": [{"value": "value1"},{"value":
  "value2"}]} is preserved

Change-Id: I7d9540d20ed0ecbb2712f1905a7d9e6f7af7e06d

lib/NGCP/Panel/Controller/API/HeaderRuleConditions.pm

@@ -41,6 +41,7 @@ sub create_item {
     my $item;
     my $schema = $c->model('DB');
     try {
+        $self->pre_process_form_resource($c, undef, undef, $resource, $form, $process_extras);
         $item = $schema->resultset('voip_header_rule_conditions')
                         ->create($resource);
         NGCP::Panel::Utils::HeaderManipulations::invalidate_ruleset(

lib/NGCP/Panel/Role/API/HeaderRuleConditions.pm

@@ -95,6 +95,25 @@ sub resource_from_item {
     return \%resource;
 }
 
+sub pre_process_form_resource {
+    my ($self,$c, $item, $old_resource, $resource, $form, $process_extras) = @_;
+
+    if (my $values = $resource->{values}) {
+        my @adjusted_values;
+        if ($#$values >= 0) {
+            my $check = $values->[0];
+            if (!ref $check) {
+                foreach my $value (@{$values}) {
+                    push @adjusted_values, { 'value' => $value };
+                }
+                $resource->{values} = \@adjusted_values;
+            }
+        }
+    }
+
+    return $resource;
+}
+
 sub check_resource {
     my ($self, $c, $item, $old_resource, $resource, $form, $process_extras) = @_;
     my $schema = $c->model('DB');