upload fieldbook from manage phenotyping
[sgn.git] / mason / search / index.mas
blobf709cc281687005ed6061d5b15100fd893b02e31
2 <%doc>
4 =head1 NAME
6 /search/index.mas - a mason module for the main SGN search page
8 =head1 DESCRIPTION
10 Arguments:
12 =over 5 
14 =item * 
16 $search - the search form to display. One of: loci, phenotypes, cvterm_name, unigene, family, markers, bacs, est_library, images, directory,template_experiment_platform
18 =item * 
20 $dbh - a database handle.
22 =back
24 =head1 AUTHOR
26 Lukas Mueller <lam87@cornell.edu>. Based on Perl code by Rob Buels and others.
28 =cut
30 </%doc>
32 <%args>
33   $search => 'loci'
34   $dbh
35 </%args>
37 <%perl>
39 my %tabcomps = (
40             loci        => '/search/forms/gene_tab.mas',
41             phenotypes  => '/search/forms/phenotype_tab.mas',
42             cvterm_name => '/search/forms/cvterm_tab.mas',
43             unigene     => '/search/forms/unigene_tab.mas',
44             family      => '/search/forms/family_tab.mas',
45             markers     => '/search/forms/marker_tab.mas',
46             bacs        => '/search/forms/bac_tab.mas',
47             est_library => '/search/forms/est_library_submenu.mas',
48             images      => '/search/forms/images_tab.mas',
49             directory   => '/search/forms/directory_tab.mas'
53 unless exists($tabcomps{$search}) {
54   print qq | <p class="boxbgcolor5"><b>SGN Search Error</b><br /><br />The search type entered ("$search") is not supported. Please try to perform one of the supported searches by clicking on one of the tabs below.\n<br /></p> |;
55   $search='loci';
58 </%perl>
60 <br />
61 <& /search/forms/searchtabs.mas, search=>$search &>
63 <& $tabcomps{$search}, %ARGS &>
66 <%cleanup>
68 </%cleanup>