Changeset 16022
- Timestamp:
- 2008-06-16 13:59:57 (5 months ago)
- Files:
-
- gsdl/trunk/perllib/plugins/BasePlugin.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
gsdl/trunk/perllib/plugins/BasePlugin.pm
r16014 r16022 594 594 my $top_section = $doc_obj->get_top_section(); 595 595 596 # the original encoding filename597 $doc_obj->set_metadata_element($top_section, "Source", $filename_no_path);598 596 # UTF-8 version of filename 599 597 my $filemeta = $self->filename_to_utf8_metadata($filename_no_path, $file_encoding); 600 $doc_obj->set_utf8_metadata_element($top_section, "Source UTF8", $filemeta);598 $doc_obj->set_utf8_metadata_element($top_section, "Source", $filemeta); 601 599 602 600 }
