Ignore:
Timestamp:
2002-06-25T20:15:26+12:00 (20 years ago)
Author:
sjboddie
Message:

Altered the getcharequiv() function so it now converts entities to raw
utf-8 characters. This should now work for entities like ∏ (i.e.
characters outside of the latin 1 character set).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/HTMLPlug.pm

    r3148 r3181  
    676676    &BasPlug::read_file($self, $filename, $encoding, $language, $textref);
    677677
    678 
    679     # Convert things like é to their UTF8 equivalents
     678    # Convert entities to their UTF8 equivalents
    680679    $$textref =~ s/&(lt|gt|amp|quot);/&z$1;/go;
    681     $$textref =~ s/&([^;]+);/&unicode::ascii2utf8(\&ghtml::getcharequiv($1,1))/gseo;
     680    $$textref =~ s/&([^;]+);/&ghtml::getcharequiv($1,1)/gseo;
    682681    $$textref =~ s/&z(lt|gt|amp|quot);/&$1;/go;
    683682}
Note: See TracChangeset for help on using the changeset viewer.