$value=hex($value);
}
($output_char)=&get_chars_matching($er_alias{$atr},$value);
- utf8::decode($output_char);
+# utf8::decode($output_char);
}
if($output_char){
return $before_er.$output_char;
$char=pack('U',$char_id);
- if($out_char=&get_char_attribute($char,'=jis-x0208')){
+ if($out_char=&get_char_attribute($char,'=jis-x0208')
+ or $out_char=&get_char_attribute($char,'=jis-x0208-1983')
+ or $out_char=&get_char_attribute($char,'=jis-x0208-1990')
+ ){
return pack("S",$out_char|0x8080);
}else{
foreach $out_cs (@order){