print<<"";
ユーザ管理室
if($EST{debug}){print "
▼ デザイン設定
▲トップへ
▼ 項目編集
foreach(1 .. $#koumoku+1){
print qq|($_) |;
}
print<<"";
foreach $line(@koumoku){ my @arg=split(/<>/,$line); my($class)="ST_" . $arg[4]; my $st=$class->new($line); print<<"EOM"; EOM } print<<""; |