mason/homepage/what_is_sgn.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 /homepage/what_is_sgn.mas - shows a "More about SGN" collapser that the user can open with a click to reveal more information about SGN.
   7
   8 =head1 DESCRIPTION
   9
  10 takes a what parameter. Either 'textbox' or 'link'. Will result in different rendering.
  11
  12 =head1 AUTHOR
  13
  14 Lukas Mueller
  15
  16 =cut
  17
  18 </%doc>
  19
  20
  21 <%args>
  22 $what
  23 </%args>
  24
  25 <& /util/import_javascript.mas, classes=>["CXGN.Effects"] &>
  26
  27 <%perl>
  28
  29 use CXGN::Page::Widgets qw/collapser/;
  30
  31 my ($what_is_link, $what_is_content) = collapser({
  32     id         => "what_is_sgn",
  33     linktext   => '<span class="boxheading" style="border:0">About SGN</span>',
  34     collapsed  => 1,
  35     linkstyle  => "font-size:0.86em;white-space:nowrap",
  36     alt_target => "",
  37     alt_href   => "/about/index.pl",
  38     content    => CXGN::Tools::File::read_commented_file( $c->path_to('documents','what_is.txt') ),
  39 });
  40
  41 </%perl>
  42
  43 % if ($what eq "textbox") {
  44
  45 <div class="boxbgcolor1">
  46   <div class="boxheading"><% $what_is_link %></div>
  47 </div>
  48 <% $what_is_content %>
  49
  50 % } elsif($what eq "link")  {
  51
  52  <% $what_is_link %>
  53
  54 %} else { die "don't know what $what is." }