mason/page/info_table.mas

   1 <%doc>
   2
   3 =head1 NAME
   4
   5 info_table.mas - a mason component to display information in a table format
   6
   7 =head1 DESCRIPTION
   8
   9 parameters:
  10
  11 =over 3
  12
  13 =item title
  14
  15 Title to use for the table.
  16
  17 =item sub
  18
  19 set to true if this table is contained in another table, styles will be subtly changed to reflect its subtableness.
  20
  21 =item tableattrs
  22
  23 the attributes to use for each table cell.
  24
  25 =item border
  26
  27 if true, draws a border. Default is on.
  28
  29 =item data
  30
  31 a hashref with the data to be displayed in the info table.
  32
  33 =back
  34
  35 Example:
  36
  37  <& /page/info_table.mas, data => { name => $name, description => $desc } &>
  38
  39 =head1 AUTHOR
  40
  41 Lukas Mueller. Based on code by R. Buels.
  42
  43 =cut
  44
  45 </%doc>
  46
  47 <%args>
  48   $sub        => 0
  49   $title      => ''
  50   $tableattrs => ''
  51   $multicol   => 1
  52   $caption    => ''
  53   $border     => 0
  54
  55   $data       => undef
  56 </%args>
  57 <% info_table_html( %mapped_args, @$data ) %>
  58 <%init>
  59
  60   my %mapped_args = (
  61       __border   => $border,
  62       __caption  => $caption,
  63       __multicol => $multicol,
  64       __tableattrs => $tableattrs,
  65       __title    => $title,
  66       __sub      => $sub
  67    );
  68
  69   $data ||= [ split /^\s*\-{2,}\s*$/m, $m->content ];
  70
  71 </%init>
  72 <%once>
  73   use CXGN::Page::FormattingHelpers 'info_table_html';
  74 </%once>