<BR><B><FONT color="#0000FF">sos2.cgi #	Sub Player List # Line2079-2086(original ver.) </FONT></B><BR>
<B><FONT color="#0000FF">list.cgi # Sub Player List # Line93-100 (dollEx ver.)</FONT></B><BR>
<b>if ($is =~ /[a-z]/) {<BR>
$stellalength = length($is) - 1;<BR>
print qq|&lt;br&gt;ステラツィオ：|;<BR>
foreach (0 .. $stellalength) { <BR>
&stell_sub($is,$_);<BR>
print qq|&lt;IMG src=$imgdir$ininum$def_jg width=$st_wd height=$st_ht&gt;\n| 
if $initial =~ /[a-z]/;<BR>
}<BR>
}</b><br> 
<TEXTAREA name="textfield" cols="100" rows="5" wrap="OFF">
#-EDIT-	if ($is =~ /[a-z]/) {
	if ($is) {
#-END of EDIT- SION0005v1.00-1-1/2
		$stellalength = length($is) - 1;
		print qq|&lt;br&gt;ステラツィオ：|;
		foreach (0 .. $stellalength) {
			&amp;stell_sub($is,$_);
			print qq|&lt;IMG src=$imgdir$ininum$def_jg width=$st_wd height=$st_ht&gt;\n| if $initial =~ /[a-z]/;
		}
#-ADD-
		foreach (0 .. $stellalength) {
			&amp;stell_sub($is,$_);
			print qq|&lt;IMG src=$imgdir$ininum$def_jg width=$st_wd height=$st_ht&gt;\n| if $initial =~ /[A-Z]/;
		}
#-END of ADD- SION0005v1.00-1-2/2
	}
</TEXTAREA>