mason/txtable

   1
   2 <%args>
   3 $tx
   4 $inputs => 0
   5 </%args>
   6
   7 % my $ent = sub {
   8 %     my ($head,$name,$val,$style,$size,$input_xinfo) = @_;
   9 <tr><td><% $head %></td>
  10 <td>
  11 %     if ($inputs) {
  12 %         $size ||= 50;
  13 <input type="text" size="<% $size %>" name="<% $name %>" value="<% $val |h %>">
  14 <% $input_xinfo %>
  15 %     } else {
  16 %         if (defined $style) {
  17 <% "<$style>" %>
  18 %         }
  19 <% $val |h %>
  20 %         if (defined $style) {
  21 <% "</$style>" %>
  22 %         }
  23 %     }
  24 % };
  25
  26 <table>
  27 % $ent->('Short name:', 'desc', $tx->{'desc'});
  28 % $ent->('Subject:', 'subject', $tx->{'subject'}, 'code');
  29 <% $m->content %>
  30 </table>
  31 <p>