Changeset 32501

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

Location:

main/trunk/greenstone2/perllib/plugins

Files:

• BaseImporter.pm (modified) (1 diff)
• MetadataCSVPlugin.pm (modified) (1 diff)

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

@@ -924 +924 @@
     }
     elsif (ref ($metadata->{$field}) eq "ARRAY") {
-        map { 
-        $doc_obj->add_utf8_metadata ($cursection, $field, $_); 
-        } @{$metadata->{$field}};
+        if ($field =~ /(.+?)\/\/\/Section\/([\d.]*)/m){
+            my $field_new_name = $1;
+            my $specified_section = $2;
+            map { 
+                $doc_obj->add_utf8_metadata ($specified_section, $field_new_name, $_); 
+            } @{$metadata->{$field}};
+        } else {
+            map { 
+                $doc_obj->add_utf8_metadata ($cursection, $field, $_); 
+            } @{$metadata->{$field}};
+        }
+        
     } else {
-        $doc_obj->add_utf8_metadata ($cursection, $field, $metadata->{$field}); 
+        if ($field =~ /(.+?)\/\/\/Section\/([\d.]*)/m){
+            my $field_new_name = $1;
+            my $specified_section = $2;
+            $doc_obj->add_utf8_metadata ($specified_section, $field_new_name, $metadata->{$field});
+        } else {
+            $doc_obj->add_utf8_metadata ($cursection, $field, $metadata->{$field});
+        } 
     }
     }

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