blob: 1d96cf307388217e2c5fd4a3b149cd9255096a67 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
<%doc>
Actually <TR> <TH> $label </TH>
Note that this puts the 'label' argument into the document verbatim, with no
escaping or localization.
</%doc>
<TR>
<TH ALIGN = "right"
VALIGN = "<% $opt{'valign'} || 'top' %>"
STYLE = "<% $style %>"
ID = "<% $opt{label_id} || $opt{id}. '_label0' %>"
><% $required %><% $opt{label} %></TH>
<%init>
my %opt = @_;
my $style = 'padding-top: 3px';
$style .= '; '. $opt{'cell_style'}
if $opt{'cell_style'};
my $required = $opt{'required'} ? '<font color="#ff0000">*</font> ' : '';
</%init>
|
