选择单选按钮后如何启用提交按钮？

Question

我正在编写 Perl CGI 脚本。

一开始提交按钮是禁用的，当任何一个单选按钮被选中时它应该被启用。每个对应的行都有一个单选按钮（同名）。

Answer 1

这更可能是一个 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 } 
    );