# required
- #? 'name_callback' => sub { },
+ #not yet 'name_callback' => sub { },
'names_list' => [ 'value',
'other value',
- [ 'complex value' => { 'desc' => "Add'l description",
- 'note' => ' *',
+ [ 'complex value' => { 'label' => 'Display value',
+ 'desc' => "Add'l description",
+ 'note' => ' *',
}
],
],
</%doc>
-<TABLE CELLSPACING=0 CELLPADDING=0>
+<TABLE CELLSPACING=0 CELLPADDING=0 <% $style %>>
+
+% unless ( $opt{'disable_links'} ) {
<TR>
<TD COLSPAN=2 ALIGN="center"><FONT SIZE="-1">(
)</FONT></TD>
</TR>
+% }
+
% my $num=0;
% foreach my $item ( @{ $opt{'names_list'} } ) {
%
% my $name = ref($item) ? $item->[0] : $item;
-% ( my $display = $name ) =~ s/ / /g;
+% my $display = ( ref($item) && $item->[1]{label} )
+% ? $item->[1]{label}
+% : $name;
+% $display =~ s/ / /g;
% $display .= $item->[1]{note} if ref($item) && $item->[1]{note};
% my $desc = ref($item) && $item->[1]{desc} ? $item->[1]{desc} : '';
%
$cgi->param($opt{'element_name_prefix'}. $name );
};
+my $style = '';
+if ($opt{'style'}) {
+ $style = 'STYLE="' . $opt{'style'} . '"';
+}
</%init>