[Bio] / FigWebServices / SearchSkeleton.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/SearchSkeleton.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11, Fri Nov 10 22:02:40 2006 UTC revision 1.12, Wed Nov 15 19:57:32 2006 UTC
# Line 20  Line 20 
20  use SHWordSearch;  use SHWordSearch;
21  use SHPropSearch;  use SHPropSearch;
22  use SHDrugSearch;  use SHDrugSearch;
23    use SHSubSearch;
24    
25  =head1 NMPDR Search Skeleton  =head1 NMPDR Search Skeleton
26    
# Line 89  Line 90 
90    
91  If specified, then hyperlinked aliases will be shown for each feature.  If specified, then hyperlinked aliases will be shown for each feature.
92    
93    =item Alternate
94    
95    If specified, then a list of advanced search forms will be shown.
96    
97  =back  =back
98    
99  =head2 The Cache File  =head2 The Cache File
# Line 121  Line 126 
126      my $class = $cgi->param("Class");      my $class = $cgi->param("Class");
127      # Check for advanced mode.      # Check for advanced mode.
128      if ($cgi->param("Alternate")) {      if ($cgi->param("Alternate")) {
129          $class = $FIG_Config::advanced_class;          Trace("Advanced mode selected.") if T(3);
130            # In advanced mode, we list all the search forms listed in
131            # $FIG_Config::advanced_class.
132            my @classes = split(/\s+/, $FIG_Config::advanced_class);
133            # Set the page size to the default.
134            $cgi->param(-name => 'PageSize', -value => $FIG_Config::results_per_page);
135            # Tell the template we have no search results and no class.
136            $varHash->{result_count} = 0;
137            $varHash->{class} = "";
138            # Loop through the classes, displaying the forms.
139            for my $className (@classes) {
140                my $shelp = GetHelper($cgi, $className);
141                # Produce the form.
142                $varHash->{form} .= $shelp->Form();
143                # Produce the help text.
144                $varHash->{form} .= $shelp->GetHelpText();
145                # Put some space between us and whatever comes next.
146                $varHash->{form} .= "<p>&nbsp;</p>";
147      }      }
148      if (! $class) {      } elsif (! $class) {
149          Trace("Producing index of search tools.") if T(3);          Trace("Producing index of search tools.") if T(3);
150          # No class specified, so we simply generate an index of the          # No class specified, so we simply generate an index of the
151          # searches. First, make sure the template knows there are no search results.          # searches. First, make sure the template knows there are no search results.

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3