%args>
$tx
$inputs => 0
%args>
% my $ent = sub {
% my ($head,$name,$val,$style,$size,$input_xinfo) = @_;
<% $head %> |
% if ($inputs) {
% $size ||= 50;
<% $input_xinfo %>
% } else {
% if (defined $style) {
<% "<$style>" %>
% }
<% $val |h %>
% if (defined $style) {
<% "$style>" %>
% }
% }
% };
% $ent->('Short name:', 'desc', $tx->{'desc'});
% $ent->('Subject:', 'subject', $tx->{'subject'}, 'code');
<% $m->content %>
|