mason/markers/comments.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 /markers/overgo.mas - a Mason component displaying information about comments on markers stored in the database
   7
   8 =head1 DESCRIPTION
   9
  10 parameters
  11
  12 =over 5
  13
  14 =item *
  15
  16 $marker - a CXGN::Marker object.
  17
  18 =back
  19
  20 =head1 AUTHOR
  21
  22 Lukas Mueller <lam87@cornell.edu>
  23
  24 =cut
  25
  26 </%doc>
  27
  28 <%args>
  29 $marker
  30 </%args>
  31
  32 <%perl>
  33 my $comments=$marker->comments();
  34 if($comments) {
  35   return blue_section_html('Comments', newlines_to_brs($comments));
  36 }
  37 else {
  38   return'';
  39 }
  40
  41 </%perl>