|
||||||||||
> cgi/admin.cgiの > 1553行 > > <tr> > <td>特定商品</td><td><input type="checkbox" name="cool" value="1"${ck_c}> 特定商品にする</td> > </tr> > > を > > EOM > $tokuline=""; > my $k; > my $v; > unshift(@toku_keys,""); > foreach $k(@toku_keys){ > $ck_toku=""; > if($cool){ > if($k eq $cool){ > $ck_toku=" checked"; > } > } > $v=$k; > if($k eq ""){ > $k="n"; > } > $tokuline.="<input type=\"radio\" name=\"cool\" value=\"$v\"${ck_toku}>$TOKU_N{$k} "; > } > print "<tr><td>特定商品</td><td>"; > print $tokuline; > print "</td> > print <<EOM; > > と変更 上記のように変更したのですが、管理画面を開こうとしたらエラーが出て 管理画面が開けませんでした。「505gi/admin.cgiの > 1553行 > > <tr> > <td>特定商品</td><td><input type="checkbox" name="cool" value="1"${ck_c}> 特定商品にする</td> > </tr> > > を > > EOM > $tokuline=""; > my $k; > my $v; > unshift(@toku_keys,""); > foreach $k(@toku_keys){ > $ck_toku=""; > if($cool){ > if($k eq $cool){ > $ck_toku=" checked"; > } > } > $v=$k; > if($k eq ""){ > $k="n"; > } > $tokuline.="<input type=\"radio\" name=\"cool\" value=\"$v\"${ck_toku}>$TOKU_N{$k} "; > } > print "<tr><td>特定商品</td><td>"; > print $tokuline; > print "</td> > print <<EOM; > > と変更 上記のように変更したのですが、管理画面を開こうとしたらエラーが出て 管理画面が開けませんでした。 どのようにしたら良いでしょうか? よろしくお願いいたします。 |