使用Perl的HTML :: Template在一列中的单选按钮

时间:2012-05-29 19:57:54

标签: perl radio-button

这是一个双列表,左侧列中有标签,右侧列中有表单元素。我试图在第二列中获得椅子颜色的单选按钮。但他们一直在第一栏结束。

以下是相关的代码:

use HTML::Template;
use CGI qw(:standard);

my $form = '';

$form .= start_form .
  table ({-width=>'100%'},
    Tr([
      td (b ('Chair color:')),
        td (radio_group(-name => 'certificate_type',
                        -values=>['blue','white','green'],)),
      td ([b ('Username:'),  $ENV{REMOTE_USER}]),
      td ([b ('Full name:'), $PARAMS{CURRENT_FULLNAME}]),
      td ([b ('Email:'),     $PARAMS{EMAIL}]),
   ])) . submit('Submit') . reset . end_form;

(更好的方法是将按钮放在第二列,但垂直堆叠。)

1 个答案:

答案 0 :(得分:1)

我认为你想在第一栏中的“椅子颜色”,在第二栏的三个单选按钮的左边?

问题是您已将“主席颜色”和radio_group放在两个单独的td元素中,因此它们将显示在不同的行中。

您需要将它们一起(以匿名数组包含在一起)传递给单个td调用,因为您有最后三行。

此外,-columns => 1的{​​{1}}参数会强制它们成为一列。

此代码似乎可以满足您的需求。

radio_group