Changeset 34834

Timestamp:

2021-02-13T22:49:58+13:00 (3 years ago)

Author:

davidb

Message:

Identifier field added in if merging on fields

File:

• main/trunk/model-sites-dev/eurovision-lod/collect/eurovision/perllib/plugins/JSONSPARQLResultPlugin.pm (modified) (4 diffs)

main/trunk/model-sites-dev/eurovision-lod/collect/eurovision/perllib/plugins/JSONSPARQLResultPlugin.pm

@@ -89 +89 @@
 
 sub get_default_process_exp {
-    return q^(?i)(\.json)$^;
+    return q^(?i).*sparql.*(\.json)$^;
 }
 
@@ -152 +152 @@
         }
 
+        # Remove any whitespace to make it GS Identifier Friendly
+        $merged_key =~ s/\s+//g;
+        
         if (!defined $merged_hashmap->{$merged_key}) {
         
@@ -159 +162 @@
             $merged_hashmap->{$merged_key}->{$md_key} = [ $md_val ];
         }
-        
         }
         else {
@@ -192 +194 @@
     
     foreach my $merged_key (keys %$merged_hashmap) {
-        push(@$results_array,$merged_hashmap->{$merged_key});
+        my $merged_result_entry = $merged_hashmap->{$merged_key};
+
+        # add in an Identifier metadata value based on the merged_key
+        # if the result_entry does not already have one
+        if (!defined $merged_result_entry->{'Identifier'}) {
+        $merged_result_entry->{'Identifier'} = { 'type' => "literal", 'value' => $merged_key };
+        }
+        push(@$results_array,$merged_result_entry);
     }
     }