blob: 3111f435cfd02b027235335890404a69c5c5ec5a (
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
28
29
30
|
<%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> ' : '';
if ($required) {
$style .= ';font-weight: bold';
}
</%init>
|