Changeset 34251

Show
Ignore:
Timestamp:
09.07.2020 16:26:51 (4 weeks 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.

Files:
1 modified

Legend:

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

    r33754 r34251  
    221221                $meta_value =~ s/\]/&\#093;/g; 
    222222                push(@escaped_within_md_vals, $meta_value); 
     223                ### ANU DEBUGGING missing hnz.Identifier problems 
     224                if ($md_name eq "Filename") { 
     225                print STDERR "Filename = $meta_value\n"; 
     226                } 
     227                if ($md_name eq "hnz.Identifier") { 
     228                print STDERR "hnz.Identifier = $meta_value\n"; 
     229                } 
     230                ### END ANU DEBUGGING 
    223231            } 
    224232            push (@{$csv_line_metadata{$md_name}}, @escaped_within_md_vals);