Changeset 5709
- Timestamp:
- 2003-10-22T13:28:35+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/ghtml.pm
r3181 r5709 151 151 # a numeric entity 152 152 if ($entity =~ /^\#0*(\d+)/) { 153 return &unicode::unicode2utf8([$1]); 153 my $code=$1; 154 # non-standard Microsoft breakage, as usual 155 if ($code < 0x9f) { # code page 1252 uses reserved bytes 156 if ($code == 0x91) {$code=0x2018} # 145 = single left quote 157 elsif ($code == 0x92) {$code=0x2019} # 146 = single right quote 158 elsif ($code == 0x93) {$code=0x201c} # 147 = double left quote 159 elsif ($code == 0x94) {$code=0x201d} # 148 = double right quote 160 # ... 161 } 162 return &unicode::unicode2utf8([$code]); 154 163 } 155 164
Note:
See TracChangeset
for help on using the changeset viewer.