enable &de_er() to work.

diff --git a/Chise_utils/scripts/sample.pl b/Chise_utils/scripts/sample.pl
index 5548e96..a287ab2 100644 (file)
--- a/Chise_utils/scripts/sample.pl
+++ b/Chise_utils/scripts/sample.pl
@@ -52,6 +52,7 @@ if($opt_help
     exit 1;
 }else{
     $char=shift or $char="";
     exit 1;
 }else{
     $char=shift or $char="";

+    $char=&de_er($char);

 }
 
 if($opt_mapfrom){
 }
 
 if($opt_mapfrom){

@@ -81,7 +82,6 @@ if($opt_map){
        print STDERR "No map for $opt_rev_map.\n";
     }
 }elsif($opt_allatr){
        print STDERR "No map for $opt_rev_map.\n";
     }
 }elsif($opt_allatr){

-    $char=&de_er($char) if($char=~/\d/);

     print $char,"\n";
     foreach $atr (sort keys %db){
        if($value=&get_char_attribute($char,$atr)){
     print $char,"\n";
     foreach $atr (sort keys %db){
        if($value=&get_char_attribute($char,$atr)){

@@ -89,7 +89,6 @@ if($opt_map){
        }
     }
 }elsif($opt_atr){
        }
     }
 }elsif($opt_atr){

-    $char=&de_er($char) if($char=~/\d/);

     print $char,"\n";
     print "  ",$opt_atr,":",&get_char_attribute($char,$opt_atr),"\n";
 }elsif($opt_showatr){
     print $char,"\n";
     print "  ",$opt_atr,":",&get_char_attribute($char,$opt_atr),"\n";
 }elsif($opt_showatr){