Changeset 27283 for main/trunk/greenstone2/perllib/plugins/OAIPlugin.pm
- Timestamp:
- 2013-05-01T18:03:33+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/OAIPlugin.pm
r25333 r27283 27 27 package OAIPlugin; 28 28 29 # Devel::Peek's Dump($var) function is useful for debugging encoding issues. 30 #use Devel::Peek; 31 use Encode; 29 32 use extrametautil; 30 33 use unicode; … … 500 503 $self->open_prettyprint_metadata_table(); 501 504 505 # need to decode the string, else it will be double-encoded at this point 506 $$textref = decode("utf-8",$$textref); 507 508 # Debugging encoding issues with Devel::Peek's Dump() which prints octal and hexcode 509 # print STDERR "#### text ref: $$textref\n"; 510 # print STDERR "\n@@@\n"; 511 # Dump($$textref); 512 # print STDERR "\n"; 513 502 514 if ($$textref =~ m/<metadata\s*>(.*?)<\/metadata\s*>/s) 503 515 {
Note:
See TracChangeset
for help on using the changeset viewer.