Changeset 32501 for main/trunk/greenstone2/perllib/plugins/BaseImporter.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/BaseImporter.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});
+        } 
     }
     }