PerlCGIスクリプトを書いています。
最初は送信ボタンが無効になっていますが、いずれかのラジオボタンが選択されている場合は有効にする必要があります。対応する行(同じ名前)ごとにラジオボタンがあります。
PerlCGIスクリプトを書いています。
最初は送信ボタンが無効になっていますが、いずれかのラジオボタンが選択されている場合は有効にする必要があります。対応する行(同じ名前)ごとにラジオボタンがあります。
送信ボタンを有効にしてページをリロードしたい場合を除いて、これはおそらくJavaScriptの質問です。ただし、CGIでJavaScriptイベントを指定できます。
ラジオグループの場合、少し注意が必要です。サブはアイテムごとの属性を許可するためradio_group
、選択ごとに同じイベントを指定する必要があります。
my @values = qw<eenie meenie minie>;
my $enableSubmit
= { -onClick => q[document.getElementById('mySubmitButton').disabled = false;] }
;
print CGI->radio_group(
-name => 'group_name'
, -values => \@values
, -default => 'meenie'
, -linebreak => 'true'
, -labels => { map { $_ => ucfirst } @values }
, -attributes => { map { $_ => $enableSubmit } @values }
);