- Timestamp:
- 2014-02-12T18:03:06+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/MetadataXMLPlugin.pm
r28489 r28836 364 364 # form ... need to explicitly make it UTF-8 365 365 366 my $metadata_name = decode("utf-8",$self->{'metadata_name'}); 367 my $metadata_value = decode("utf-8",$self->{'metadata_value'}); 366 my $metadata_name = $self->{'metadata_name'}; 367 my $metadata_value = $self->{'metadata_value'}; 368 #my $metadata_name = decode("utf-8",$self->{'metadata_name'}); 369 #my $metadata_value = decode("utf-8",$self->{'metadata_value'}); 368 370 369 371 &metadatautil::store_saved_metadata($self, … … 392 394 # things down significantly in some cases. 393 395 sub Char { 394 use bytes; # Necessary to prevent encoding issues with XML::Parser 2.31+396 # use bytes; # Necessary to prevent encoding issues with XML::Parser 2.31+ 395 397 396 398 # if ($]<5.008) {
Note:
See TracChangeset
for help on using the changeset viewer.