Changeset 32818 for main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/CSVPlugin.pm

Timestamp:

2019-02-25T23:01:49+13:00 (5 years ago)

Author:

davidb

Message:

New option added to allow metadata values within CSV to be split into separate values

File:

• main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/CSVPlugin.pm (modified) (3 diffs)

main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/CSVPlugin.pm

@@ -130 +130 @@
     }
     else {
-        print STDERR "Error: Badly formatted CSV field line: $csv_file_field_line.\n";
+    print STDERR "Error: Badly formatted CSV field line: $csv_file_field_line.\n";
     }
 
@@ -154 +154 @@
     my $separate_char = $self->{'separate_char'};
 
+    my $md_val_sep = $self->{'metadata_value_separator'};
+    undef $md_val_sep if ($md_val_sep eq "");
+
     my $csv = Text::CSV->new();
     $csv->sep_char($separate_char);
@@ -166 +169 @@
         # Only bother with non-empty values
         if ($md_val ne "" && defined($csv_file_fields[$i])) {
-        $doc_obj->add_utf8_metadata($section, $csv_file_fields[$i], $md_val);
+        if (defined $md_val_sep) {
+            my $md_name = $csv_file_fields[$i];
+
+            my @within_md_vals = split(/${md_val_sep}/,$md_val);
+            foreach my $within_md_val (@within_md_vals) {
+            $doc_obj->add_utf8_metadata($section, $md_name, $within_md_val);
+            }
+        }
+        else {
+            $doc_obj->add_utf8_metadata($section, $csv_file_fields[$i], $md_val);
+        }
         }
     }