mason/stock/stockprops.mas

   1 <%doc>
   2 =head1 NAME
   3
   4 stockprops.mas
   5
   6 =head1 DESCRIPTION
   7
   8 This component can print stock properties
   9
  10
  11 =head1 ARGUMENTS
  12
  13 =over 1
  14
  15 =item props
  16 hashref of stockprops . keys = prop name (cvterm.name) values = list of prop values
  17
  18 =back
  19
  20 =head1 AUTHOR
  21 Naama Menda <nm249@cornell.edu>
  22
  23
  24 =cut
  25
  26 </%doc>
  27
  28 <%args>
  29   $subset
  30   $props
  31
  32 </%args>
  33
  34 <%perl>
  35
  36 my $string;
  37 foreach my $name ( @$subset ) {
  38   $string .= "<tr><td>" . $name . ": </td><td><b>" .  join(', ' , @{ $props->{$name} } ) . "</b></td></tr>" if  ref($props->{$name} );
  39 }
  40
  41 </%perl>
  42
  43 % if ($string) {
  44 <table> <% $string %> </table>
  45
  46 %}
  47