- Timestamp:
- 2017-02-23T13:27:52+13:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
r31420 r31438 1001 1001 $url_encoded_filename = normalize('C', $url_encoded_filename); # Normalisation Form 'C' (composition) 1002 1002 } 1003 # set_utf8_metadata actually sets perl unicode aware strings. not utf8 1003 1004 $doc_obj->set_utf8_metadata_element($this_section, "Source", $url_encoded_filename); 1004 1005 … … 1007 1008 # If using URL encoding, then SourceFile is the url-reference to url-encoded 1008 1009 # renamed_raw_url: it's a url that refers to the actual file on the system 1010 # this call just replaces % with %25 1009 1011 my $renamed_raw_url = &unicode::filename_to_url($renamed_raw_file); 1010 1012
Note:
See TracChangeset
for help on using the changeset viewer.