From 79a14850fbd546e24e08b9c72ae03fc772c902be Mon Sep 17 00:00:00 2001
From: imiyazaki <imiyazaki>
Date: Fri, 24 Oct 2003 14:09:34 +0000
Subject: [PATCH] remove $prefix and $suffix if $prefix is amp in &de_er.

---
 Chise_utils/Chise_utils.pm |    1 +
 1 file changed, 1 insertion(+)

diff --git a/Chise_utils/Chise_utils.pm b/Chise_utils/Chise_utils.pm
index 5967978..2e13949 100644
--- a/Chise_utils/Chise_utils.pm
+++ b/Chise_utils/Chise_utils.pm
@@ -238,6 +238,7 @@ sub de_er{
     $er=~/^(amp|&)?(.+?)(;)?$/
 	and $prefix=$1,$er=$2,$suffix=$3;
     $prefix or $prefix="",$suffix or $suffix="";
+    if($prefix eq 'amp'){$prefix="",$suffix="";}
     if($er=~/^\d+$/){
 	$output_char=pack("U",$er);
     }elsif($er=~/^U[\+\-]([a-fA-F\d]+)/){
-- 
1.7.10.4