mason/search/autohandler

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 searchtabs.mas - mason component that displays the tabs for the search page
   7
   8 =head1 DESCRIPTION
   9
  10 takes a parameter, search, specifying which search should be
  11 highlighted in the tabbar. Defaults to 'loci'. Current legal values
  12 are 'loci', 'phenotypes', 'trait', 'unigene', 'family', 'markers',
  13 'bacs', 'est_library', 'images', 'directory', for the different
  14 available searches.
  15
  16 =head1 AUTHOR
  17
  18 Lukas Mueller &st;lam87@cornell.edu&gt;. Based on Perl code by Rob Buels.
  19
  20 =cut
  21
  22 </%doc>
  23
  24 <& /page/page_title.mas, title => 'Search' &>
  25
  26 <& /page/mode_buttons.mas, buttons => [
  27
  28     ['/breeders/search', 'Wizard' ],
  29     ['/search/phenotypes/stock','Accessions and plots'],
  30     ['/search/organisms','Organisms'],
  31     ['/search/cross','Progenies, Parents, Crosses'],
  32     ['/search/trials', 'Field Trials' ],
  33     ['/search/genotyping_trials', 'Genotyping Plates' ],
  34     ['/search/genotyping_data_projects', 'Genotyping Projects' ],
  35     ['/search/genotyping_protocols', 'Genotyping Protocols' ],
  36     ['/search/traits', 'Traits' ],
  37     #['/search/markers','Markers'],
  38     ['/search/images','Images'],
  39     ['/search/people', 'People' ],
  40
  41    ]
  42 &>
  43
  44 % $m->call_next;