Changeset 32818 for main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/MetadataCSVPlugin.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/MetadataCSVPlugin.pm (modified) (2 diffs)

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

@@ -146 +146 @@
     my $separate_char = $self->{'csv_field_separator'};
 
+    my $md_val_sep = $self->{'metadata_value_separator'};
+    undef $md_val_sep if ($md_val_sep eq "");
+
     my @csv_file_lines = split(/\n/, $csv_file_content);
     my $csv_file_field_line = shift(@csv_file_lines);
@@ -198 +201 @@
         # Only bother with non-empty values
         if ($md_val ne "" && defined($csv_file_fields[$i])) {
-            if (!defined $csv_line_metadata{$csv_file_fields[$i]}) {
-            $csv_line_metadata{$csv_file_fields[$i]} = [];
+
+            my $md_name = $csv_file_fields[$i];
+
+            if (!defined $md_name) {
+            $csv_line_metadata{$md_name} = [];
             }
-            push (@{$csv_line_metadata{$csv_file_fields[$i]}}, $md_val);
+
+            if (defined $md_val_sep) {          
+            
+            my @within_md_vals = split(/${md_val_sep}/,$md_val);
+            push (@{$csv_line_metadata{$md_name}}, @within_md_vals);
+
+#           foreach my $within_md_val (@within_md_vals) {
+#               push (@{$csv_line_metadata{$md_name}}, $within_md_val);
+#           }
+            }
+            else {
+            push (@{$csv_line_metadata{$md_name}}, $md_val);
+            }
         }
         }