ラジオボタンのチェックの確認（cgiを使用で）

質問

JavaScriptを使用して、ラジオボタンのチェックの確認をしたいのですが、うまくいかないので教えてください。
○　a　　　○　b
というようになっていて、aかbを選択すればメッセージは出ない、どちらも選択してないときのみ
「選択してください」のようなメッセージを表示。

ラジオボタンの選択の有無は
if(document.フォーム名.ラジオボタン名[0].checked == true){
のようにすればいいとききやってみました。
直接指定すれば、動作がおかしい（2回メッセージが出る）ものの、動作はしました。

cgiでファイル数を増やすことができるようにしてあるので、その分ラジオボタンも増えるので、
以下のようにしてみました。

for ($jscount = 1;$jscount<$FORM{'COUNT'}+1;$jscount++){
if(document.NYUURYOKU.SYURUI$jscount[0].checked == true){
}else if(document.NYUURYOKU.SYURUI$jscount[1].checked == true){
} else {
alert('種類$jscountを選択してください');
return false;
}

しかしうまくいきません。

詳しい方よろしくお願いします。

回答No.2

noname#199778 · ベストアンサー

再び失礼します。

すみません。 前回は、手元でCGIの動作確認を取れなかったので念のためにエスケープシーケンスを入れまくっていたら、肝心なところを見落としてました。

if (\!document.NYUURYOKU.SYURUI$jscount[0].checked \&\& \!document.NYUURYOKU.SYURUI$jscount[1].checked){

前回回答したこの部分ですが、

if (!document.NYUURYOKU.SYURUI$jscount\[0].checked && !document.NYUURYOKU.SYURUI$jscount\[1].checked){

このように、[x]を記述させる部分をエスケープするか、

if (!document.NYUURYOKU.SYURUI${jscount}[0].checked && !document.NYUURYOKU.SYURUI${jscount}[1].checked){

このように変数$jscountの境界を{}で明示的に区切るかのいずれかをしてみてください。 これで解決すると思います(今度は、このコードを吐き出す部分だけは、動作確認しました)。

$jscountと、JavaScriptで配列番号の指定に使う[x]とがくっついていたので、Perlの配列@jscountの[x]番目の項目(空白でしょうね)を書き出していたようです。 大変失礼しました。

お礼

回答ありがとうございます。

if (!document.NYUURYOKU.SYURUI${jscount}[0].checked && !document.NYUURYOKU.SYURUI${jscount}[1].checked){
のように変更してみたのですが、
「種類1を選択してください」が2回出て、入力が終了してないのに、入力確認画面にいってしまいます。

どこを直したらいいのでしょうか？

何度もすいませんがよろしくお願いします。

補足

すいません、無事できました！！

ありがとうございました。

回答No.1

noname#199778

Perlの記述と、JavaScriptの記述とがごっちゃになっていませんか?
JavaScriptはJavaScript、PerlはPerlとして、きちんと分けて書かないとうまくないと思いますよ。

CGIのファイルで、チェック用のJavaScriptを吐き出す部分を

print "<script type=\"text/javascript\"><\!--\n";
print "function radioCheck(){\n";

for ($jscount=1; $jscount<$FORM{'COUNT'}+1; $jscount++){
print <<"JSCHECK";

if (\!document.NYUURYOKU.SYURUI$jscount[0].checked \&\& \!document.NYUURYOKU.SYURUI$jscount[1].checked){
alert(\'種類$jscountを選択してください\')\;
return false\;
}

JSCHECK

}

print "}\n//--></script>\n";

このような感じにしてみてはいかがでしょうか。

JavaScriptでは、「!document.Form.Radio[x].checked」でそのラジオボタンがチェックされていないことが拾えますので、上記の例ではそれを併記した「(!document.Form.Radio[0].checked && !document.Form.Radio[1].checked)」(Formの中のRadio[0]がチェックされておらず、かつFormの中のRadio[1]がチェックされていない)という条件で二つのラジオボタンがチェックされていないかどうかを拾うような形になっています。
これをPerlで順次吐き出させるようにすれば良いのではないかと思います。

例示したPerlスクリプトは動作確認していませんので、正常に動くかどうかわかりません。 JavaScriptの方は、一応動作してくれると思います。

参考になれば… 間違っていたら、ごめんなさい。

お礼

回答ありがとうございます。
やってみたのですが、HTMLをみると

if (!document.NYUURYOKU.SYURUI.checked && !document.NYUURYOKU.SYURUI.checked){

となってしまいます。
どうしたらいいのでしょうか？