mason/organism/basic_info.mas

   1
   2 <%doc>
   3
   4 </%doc>
   5
   6 <%args>
   7 $name
   8 $common_name
   9 $taxon => ''
  10 $description => ''
  11 @synonyms => ()
  12 </%args>
  13
  14 <%perl>
  15 $name = $name.($taxon ? " ($taxon)" : '');
  16 my $synonym_list = join ", ", @synonyms;
  17 </%perl>
  18
  19
  20 <& /page/info_table.mas,
  21    data => [ 'Scientific Name' => $name,
  22              'Common name'     => $common_name,
  23              'Description'     => $description,
  24              'Synonyms'        => $synonym_list ],
  25   border => 0,
  26
  27 &>
  28
  29