mason/page/columnar_table.mas

   1 <%doc>
   2
   3 =head1 NAME
   4
   5 columnar_table.mas - a Mason module to display tables
   6
   7 =head1 DESCRIPTION
   8
   9 Arguments:
  10
  11  headings => [ col name, col name,...],
  12  data     => [ [html, html, ...],
  13                [ html,
  14                  { onmouseover => "alert('ow!')",
  15                    content => some html
  16                  },
  17                  html,
  18                  ...
  19                        ],
  20                  ...
  21              ],
  22 __align      => 'cccccc...',
  23 __tableattrs => 'summary="" cellspacing="0" width="100%"',
  24 __border     => 1,
  25
  26 __caption    => 'Optional table caption',
  27
  28 __alt_freq   => 4,
  29 __alt_width  => 2,
  30 __alt_offset => 0,
  31
  32 # also can generate simple frequency tables of the values in the given
  33 # columns, makes one table per column, printed before the main table.
  34 # These auxiliary frequency tables will only be printed if there are
  35 # more than 4 rows in the table.
  36 frequency_tables => ['col name','col name', ...],
  37
  38 =head1 AUTHORS
  39
  40 Lukas Mueller, based on Perl code by Rob Buels
  41
  42 =cut
  43
  44 </%doc>
  45 <%args>
  46   $data
  47   $headings  => undef
  48   $frequency_tables => []
  49 </%args>
  50 <%once>
  51   use List::Util ();
  52   use Lingua::EN::Inflect ();
  53   use CXGN::Page::FormattingHelpers qw | columnar_table_html |;
  54 </%once>
  55 <%perl>
  56 if( @$frequency_tables && @$data > 4) {
  57     my %heading_idx = do { my $i = 0; map {lc $_ => $i++} @$frequency_tables };
  58     for my $colname (@$frequency_tables) {
  59         my $idx = $heading_idx{ lc $colname };
  60         my $name = $headings->[$idx];
  61         my @data_slice = map $_->[$idx], @$data;
  62         my %stats;
  63         $stats{$_}++ for @data_slice;
  64         my @stat_disp = map {
  65             [ $stats{$_}, $_ ]
  66         } sort keys %stats;
  67
  68         if( @stat_disp > 1 ) {
  69             push @stat_disp, [ List::Util::sum( map $_->[0], @stat_disp ), '<b>Total</b>' ];
  70         }
  71
  72         print '<div style="width: 30%; float: left; margin: 2px;">'.columnar_table_html( data => \@stat_disp, __caption => Lingua::EN::Inflect::PL_N( $name ), __align => 'rl' ).'</div>';
  73     }
  74 }
  75 </%perl>
  76 <% columnar_table_html( %ARGS ) %>
  77