Perlでメッセージボックス

現在、Perl+HTMLでWebページを作成しているのですが、submitボタンを押したらメッセージBOXがでて次のページへいけるようにさせたいと思っております。
メッセージBOXは出せるようになりましたが、「OK」「キャンセル」ボタンの「キャンセル」を押しても次のページに移動してしまいます。

submitボタンの文は以下のように書いております。
print qq(<input onClick="confirm('検索を行います。よろしいですか？')" type="submit" value="検索開始">\n);

if(confirm("文字列")) { 処理 }
を使えば、制御が可能であるとネットにかいてあったのですが、うまくできません。
なにか良い方法があれば回答をお願い致します。

ちなみに、業務の都合上、Javaスクリプトは使用禁止となっております。

No.1 ベストアンサー 回答者： smart600cc 回答日時： 2002/10/10 12:06

<input onClick="return confirm('検索を行います。

よろしいですか？');" type="submit" value="検索開始">

で動くはずです。

この回答へのお礼

回答ありがとうございました！
おかげさまで正常に動くことができました。

お礼日時：2002/10/10 12:15

No.2 回答者： kusukusu 回答日時： 2002/10/10 12:06

function FromConfirm(hoge) {

　if(hoge=="search") {
　　rtn=confirm("検索しますよ～");
　}
　if(rtn) {
　　return true;
　}else {
　　return false;
　}
}

どうでしょう？

この回答へのお礼

回答ありがとうございました。
No.1の回答のとおりに書いたら正常に動きましたが、回答していただいたのも書いて確認してみます。

お礼日時：2002/10/10 12:17