| 609行目以下の部分を
if(@fonts){
print "<tr><td>文字色</td><td colspan=3><select name=font>\n";
foreach (0 .. $#fonts){
if($c_font eq "$fonts[$_]"){print"<option value=\"$fonts[$_]\" style=\"background-color:$fonts[$_];\" selected>$fonts[$_]\n";}
else{print"<option value=\"$fonts[$_]\" style=\"background-color:$fonts[$_];\">$fonts[$_]\n";}
}
print"</td></tr>";
}
if(@hr){
print"<tr><td>枠線色</td><td colspan=3><select name=hr>\n";
foreach (0 .. $#hr) {
if($c_hr eq "$hr[$_]"){print"<option value=\"$hr[$_]\" style=\"background-color:$hr[$_];\" selected>$hr[$_]\n";}
else{print"<option value=\"$hr[$_]\" style=\"background-color:$hr[$_];\">$hr[$_]\n";}
}
print"</td></tr>";
}
に置き換えてみてください。バグとかあったらすいません(´･ω･`)
|
