8 % my ($head,$name,$val,$style,$size,$input_xinfo) = @_;
9 <tr><td><% $head %></td>
13 <input type="text" size="<% $size %>" name="<% $name %>" value="<% $val |h %>">
16 % if (defined $style) {
20 % if (defined $style) {
27 % $ent->('Short name:', 'desc', $tx->{'desc'});
29 % $ent->('Subject:', 'subject', $tx->{'subject'}, 'code');