Changeset 31438

Timestamp:

2017-02-23T13:27:52+13:00 (7 years ago)

Author:

kjdon

Message:

added a couple of comments

File:

• main/trunk/greenstone2/perllib/plugins/BasePlugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

@@ -1001 +1001 @@
     $url_encoded_filename = normalize('C', $url_encoded_filename); # Normalisation Form 'C' (composition)
     }
+    # set_utf8_metadata actually sets perl unicode aware strings. not utf8
     $doc_obj->set_utf8_metadata_element($this_section, "Source", $url_encoded_filename); 
 
@@ -1007 +1008 @@
     # If using URL encoding, then SourceFile is the url-reference to url-encoded
     # renamed_raw_url: it's a url that refers to the actual file on the system
+    # this call just replaces % with %25
     my $renamed_raw_url = &unicode::filename_to_url($renamed_raw_file);