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

Question

我正在编写一个Perl CGI脚本。

首先禁用提交按钮，选择任何单选按钮时应启用提交按钮。每个对应的行（同名）都有一个单选按钮。

Answer 1

这可能是一个 JavaScript 问题，除非您想要在启用提交按钮的情况下重新加载页面。但您可以在CGI中指定 JavaScript事件。

对于一个广播组来说，它只是有点棘手。由于radio_group sub允许每个项目的属性，因此您只需为每个选项指定相同的事件。

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 } 
    );