summaryrefslogtreecommitdiff
path: root/httemplate/elements/tr-radio.html
blob: b5a2afaf14defa5018f859cda9ae8b42a39b3d1b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
% foreach my $option ( @{ $opt{options} } ) { #just arrayref for now

  <% include('tr-td-label.html', @_, label=> $labels->{$option} || $option ) %>

    <TD <% $style %>>
      <% include('radio.html', @_, value=> $option ) %>
    </TD>

  </TR>

% }
<%init>

my %opt = @_;

my $labels = $opt{'option_labels'} || $opt{'labels'};

my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';

</%init>