sos2.cgi # Sub Player List # Line2079-2086(original ver.)
list.cgi # Sub Player List # Line93-100 (dollEx ver.)
if ($is =~ /[a-z]/) {
$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]/;
}
}
#-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 }