mason/locus/synonym.mas

   1
   2
   3 <%doc>
   4
   5 =head1 NAME
   6
   7 /locus/synonym.mas - a component for printing locus synonyms
   8
   9 =head1 DESCRIPTION
  10
  11
  12 Parameters:
  13
  14 =over 2
  15
  16 =item locus_id
  17
  18 a locus id
  19
  20 =item $synonyms
  21
  22 arrayref of synonyms
  23
  24
  25 =back
  26
  27 =head1 AUTHOR
  28
  29 Naama Menda <nm249@cornell.edu>
  30
  31 =cut
  32
  33 </%doc>
  34
  35 <%args>
  36
  37
  38 $locus_id
  39 $synonyms=>undef
  40
  41
  42 </%args>
  43
  44 <%perl>
  45   my $count = scalar(@$synonyms);
  46 </%perl>
  47
  48 <br /><br /><b>Locus synonyms</b> <b><% $count %>: </b>
  49
  50 % print join(' ' ,  map( $_->get_locus_alias(), @$synonyms )) ;
  51
  52 % if ($locus_id) {
  53 <a href="/phenome/locus_synonym.pl?locus_id=<% $locus_id %>&amp;action=new"> [Add/Remove]</a><br />
  54
  55 % }