6 /search/index.mas - a mason module for the main SGN search page
16 $search - the search form to display. One of: loci, phenotypes, cvterm_name, unigene, family, markers, bacs, est_library, images, directory,template_experiment_platform
20 $dbh - a database handle.
26 Lukas Mueller <lam87@cornell.edu>. Based on Perl code by Rob Buels and others.
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> |;
61 <& /search/forms/searchtabs.mas, search=>$search &>
63 <& $tabcomps{$search}, %ARGS &>