Changeset 32501 for main/trunk/greenstone2/perllib/plugins/MetadataCSVPlugin.pm

Timestamp:

2018-10-08T23:57:39+13:00 (6 years ago)

Author:

Georgiy Litvinov

Message:

Workaround to set assign metadata via csv metadata plugin. "Section" column could be used in csv file to specify section for metadata to assign

File:

• main/trunk/greenstone2/perllib/plugins/MetadataCSVPlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/MetadataCSVPlugin.pm

@@ -212 +212 @@
     delete $csv_line_metadata{"Filename"};
 
+    my $csv_line_section_array = $csv_line_metadata{"Section"};
+    my $section_suffix = "";
+    if (defined $csv_line_section_array) {
+        my $section_value = shift(@$csv_line_section_array);
+        if ($section_value =~ /[\d.]+/m){
+            my $section_suffix = "///Section/" . $section_value;
+            foreach my $metaname (keys %csv_line_metadata) {
+                my $new_name = $metaname . $section_suffix;
+                $csv_line_metadata{$new_name} = delete $csv_line_metadata{$metaname};
+            }
+        } else{
+            unshift(@$csv_line_section_array, $section_value);
+        }
+    }
+
 
     # Associate the metadata now