Changeset 36533

Timestamp:

2022-08-29T14:43:47+12:00 (20 months ago)

Author:

kjdon

Message:

added CSVPLugin option use_namespace_for_field_names - prepend the specified namespace to each field name. This namespace will need to be used in -filename_field and -OIDmetadata options, and in format statments

File:

• main/trunk/greenstone2/perllib/plugins/CSVPlugin.pm (modified) (4 diffs)

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

@@ -58 +58 @@
     'reqd' => "no",
     'deft' => "Filename" },
-      { 'name' => "store_raw_values_as_text",
-    'desc' => "{CSVPlugin.store_raw_values_as_text}",
-    'type' => "flag",
-    'reqd' => "no"},
        { 'name' => "no_document_if_source_unspecified",
     'desc' => "{CSVPlugin.no_document_if_source_unspecified}",
@@ -70 +66 @@
     'type' => "flag",
     'reqd' => "no"},
+      { 'name' => "use_namespace_for_field_names",
+    'desc' => "{CSVPlugin.use_namespace_for_field_names}",
+    'type' => "string",
+    'reqd' => "no"},
        { 'name' => "store_field_values_as_document_text",
     'desc' => "{CSVPlugin.store_field_values_as_document_text}",
@@ -106 +106 @@
     $self->{'textcat_store'} = {};
     $self->{'metapass_srcdoc'} = {}; # which segments have valid metadata_srcdoc
+
+    if ($self->{'use_namespace_for_field_names'} =~ /^\s*$/) {
+    $self->{'use_namespace_for_field_names'} = undef;
+    }
+
     return bless $self, $class;
 }
+
 
 # mark the file as a metadata file
@@ -210 +216 @@
     $csv_file_fields[$i] =~ s/"$//;
 
+    if ($self->{'use_namespace_for_field_names'}) {
+        $csv_file_fields[$i] =  $self->{'use_namespace_for_field_names'}. "." . $csv_file_fields[$i];
+    }
     if ($csv_file_fields[$i] eq  $filename_field) {
         $found_filename_field = 1;
-    }
+    } 
     }