Changeset 27502

Show
Ignore:
Timestamp:
28.05.2013 14:02:00 (6 years ago)
Author:
kjdon
Message:

trying to fix double encoding issue for isis files. not sure that I have it yet

Files:
1 modified

Legend:

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

    r24547 r27502  
    2727package ISISPlugin; 
    2828 
     29use Encode; 
    2930 
    3031use multiread; 
     
    201202    $reader->read_file($textref); 
    202203 
     204    # At this point $$textref is a binary byte string 
     205    # => turn it into a Unicode aware string, so full 
     206    # Unicode aware pattern matching can be used. 
     207    # For instance: 's/\x{0101}//g' or '[[:upper:]]' 
     208    #  
     209 
     210    $$textref = decode("utf8",$$textref); 
    203211    close(FILE); 
    204212