SION0005

<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|<br>ステラツィオ：|;
	foreach (0 .. $stellalength) {
		&stell_sub($is,$_);
		print qq|<IMG src=$imgdir$ininum$def_jg width=$st_wd height=$st_ht>\n| if $initial =~ /[a-z]/;
	}

#-ADD-

	foreach (0 .. $stellalength) {
		&stell_sub($is,$_);
		print qq|<IMG src=$imgdir$ininum$def_jg width=$st_wd height=$st_ht>\n| if $initial =~ /[A-Z]/;
	}

#-END of ADD- SION0005v1.00-1-2/2

}

</TEXTAREA>