Changeset 31438

Show
Ignore:
Timestamp:
23.02.2017 13:27:52 (3 years ago)
Author:
kjdon
Message:

added a couple of comments

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

    r31420 r31438  
    10011001    $url_encoded_filename = normalize('C', $url_encoded_filename); # Normalisation Form 'C' (composition) 
    10021002    } 
     1003    # set_utf8_metadata actually sets perl unicode aware strings. not utf8 
    10031004    $doc_obj->set_utf8_metadata_element($this_section, "Source", $url_encoded_filename);  
    10041005 
     
    10071008    # If using URL encoding, then SourceFile is the url-reference to url-encoded 
    10081009    # renamed_raw_url: it's a url that refers to the actual file on the system 
     1010    # this call just replaces % with %25 
    10091011    my $renamed_raw_url = &unicode::filename_to_url($renamed_raw_file); 
    10101012