カテゴリ選択部分（複数select化）
かなり無理矢理
- ps_user.cgi 56行目
push(@sitecat,$text) if $key eq 'sitecat';
この行の上に↓追加
for($i=0;$i<$maxcat;$i++){
my $name = "sitecat".$i;
if($text){push(@sitecat,$text) if $key eq $name;}
}
- ps_user.cgi 292行目（sub change1）
foreach(@y2){$z1{$_}=1;}
foreach (sort {$a cmp $b;} keys %category){
$category.="<option value=\"$_\"".($z1{$_}?" selected":"").">".&linkmake($_,1)."\n";
}
$category="<select name=\"sitecat\" size=10".(($maxcat-1)?" multiple":"").">$category</select>\n";
↓と差し替え
##カテゴリ複数行
for($i=0;$i<$maxcat;$i++){
$category.="<select name=\"sitecat".$i."\" size=1><option value=\"\">----</option>\n";
foreach (sort {$a cmp $b;} keys %category){
if($_ eq $y2[$i]){$category.="<option value=\"$_\" selected>".&linkmake($_,1)."</option>\n";}
else{$category.="<option value=\"$_\">".&linkmake($_,1)."</option>\n";}
}
$category.="</select><br>\n";
}
##カテゴリ複数行ここまで
- ps_user.cgi 732行目（sub reg1）
赤字を追加
my ($category,$bannerinput,$categoryput);
- ps_user.cgi 737行目（sub reg1）
foreach (sort {$a cmp $b;} keys %category){
$category.="<option value=\"$_\">".&linkmake($_,1)."\n";
}
$category="<select name=\"sitecat\" size=10".(($maxcat-1)?"multiple":"").">$category</select>\n";
↓と差し替え
##ここから
foreach (sort {$a cmp $b;} keys %category){
$categoryput.="<option value=\"$_\">".&linkmake($_,1)."</option>\n";
}
for($i=0;$i<$maxcat;$i++){
$category.="<select name=\"sitecat".$i."\" size=1><option value=\"\">----</option>\n";
$category.=$categoryput;
$category.="</select><br>\n";
}
##ここまで
