Changeset 16919 for gsdl/trunk/perllib/plugins/BasePlugin.pm
- Timestamp:
- 2008-08-20T17:34:52+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/BasePlugin.pm
r16852 r16919 719 719 # UTF-8 version of filename 720 720 my $filemeta = $self->filename_to_utf8_metadata($filename_no_path, $file_encoding); 721 $doc_obj->set_utf8_metadata_element($top_section, "Source", $filemeta); 721 722 # Source is the UTF8 display name - not necessarily the name of the file on the system 723 $doc_obj->set_utf8_metadata_element($top_section, "Source", $filemeta); 724 725 # SourceFile is the url-reference to url-encoded filemeta: 726 # it's a url that refers to the actual file on the system 727 $filemeta = &unicode::url_encode($filemeta); 728 $filemeta = &unicode::filename_to_url($filemeta); 729 $doc_obj->set_utf8_metadata_element($top_section, "SourceFile", $filemeta); 722 730 } 723 731 724 732 sub add_OID { 725 726 733 my $self = shift (@_); 727 734 my ($doc_obj) = @_;
Note:
See TracChangeset
for help on using the changeset viewer.