Changeset 34251 for main

Timestamp:

2020-07-09T16:26:51+12:00 (4 years ago)

Author:

davidb

Message:

Attempted to write English language values for a couple of display strings declared in CSVFieldSeparator.pm (newly added from Dr Bainbridge's MetaCSVPlugin related work) that didn't have values yet.

File:

• main/trunk/model-sites-dev/heritage-nz/collect/pdf-reports/perllib/plugins/MetadataCSVPlugin.pm (modified) (1 diff)

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

@@ -221 +221 @@
                 $meta_value =~ s/\]/&\#093;/g;
                 push(@escaped_within_md_vals, $meta_value);
+                ### ANU DEBUGGING missing hnz.Identifier problems
+                if ($md_name eq "Filename") {
+                print STDERR "Filename = $meta_value\n";
+                }
+                if ($md_name eq "hnz.Identifier") {
+                print STDERR "hnz.Identifier = $meta_value\n";
+                }
+                ### END ANU DEBUGGING
             }
             push (@{$csv_line_metadata{$md_name}}, @escaped_within_md_vals);