mason/biosource/sample/pub_brief.mas

   1 <%doc>
   2
   3 =head1 NAME
   4
   5  pub_brief.mas - show a table of publications
   6
   7 =head1 ARGS
   8
   9 =head2 pub_list
  10
  11 arrayref of BCS publication rows to render
  12
  13 =cut
  14
  15 </%doc>
  16
  17 <%args>
  18   $schema
  19   $pub_list
  20 </%args>
  21
  22 <&| /page/info_section.mas,
  23     title       => 'Publications',
  24     collapsible => 1,
  25  &>
  26 % if( @pub_objects ) {
  27   <% columnar_table_html(
  28        headings => [ 'Year', 'Title', 'Series' ],
  29        __align    => 'lll',
  30        __alt_freq => 2,
  31        data => [ map {
  32            my $pub = $_;
  33            my $id = $pub->pub_id;
  34
  35            [ encode_entities($pub->pyear),
  36              qq|<a href="/publication/$id/view">|.encode_entities($pub->title).'</a>',
  37              encode_entities( $pub->series_name ),
  38            ]
  39          } @pub_objects
  40        ],
  41    ) %>
  42 % }
  43 </&>
  44
  45 <%once>
  46    use HTML::Entities;
  47    use CXGN::Page::FormattingHelpers  qw/ columnar_table_html /;
  48 </%once>
  49 <%init>
  50
  51    # $pub_list is an arrayref of pub IDs.  inflate them to objects.
  52    my @pub_objects =
  53       $schema->resultset('Pub::Pub')
  54              ->search(
  55                  { pub_id => $pub_list },
  56                  { order_by => [ 'pyear DESC', 'title' ] },
  57                )
  58              ->all;
  59
  60 </%init>