Changeset 34251
- Timestamp:
- 2020-07-09T16:26:51+12:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/model-sites-dev/heritage-nz/collect/pdf-reports/perllib/plugins/MetadataCSVPlugin.pm
r33754 r34251 221 221 $meta_value =~ s/\]/&\#093;/g; 222 222 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 223 231 } 224 232 push (@{$csv_line_metadata{$md_name}}, @escaped_within_md_vals);
Note:
See TracChangeset
for help on using the changeset viewer.