[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.12, Wed Nov 15 19:57:32 2006 UTC revision 1.13, Sat Nov 18 20:21:26 2006 UTC
# Line 135  Line 135 
135          # Tell the template we have no search results and no class.          # Tell the template we have no search results and no class.
136          $varHash->{result_count} = 0;          $varHash->{result_count} = 0;
137          $varHash->{class} = "";          $varHash->{class} = "";
138          # Loop through the classes, displaying the forms.          # Loop through the classes, creating the table of contents and
139            # the forms.
140            $varHash->{formIndex} = $cgi->h3("Contents") . $cgi->start_ul();
141          for my $className (@classes) {          for my $className (@classes) {
142              my $shelp = GetHelper($cgi, $className);              my $shelp = GetHelper($cgi, $className);
143                # Produce the contents entry.
144                $varHash->{formIndex} .= $cgi->li($cgi->a({href => "#X$className"}, $className) .
145                                                  ": " . $shelp->Description());
146                # Produce the bookmark.
147                $varHash->{form} .= $cgi->a({ name => "X$className" });
148              # Produce the form.              # Produce the form.
149              $varHash->{form} .= $shelp->Form();              $varHash->{form} .= $shelp->Form();
150              # Produce the help text.              # Produce the help text.
# Line 145  Line 152 
152              # Put some space between us and whatever comes next.              # Put some space between us and whatever comes next.
153              $varHash->{form} .= "<p>&nbsp;</p>";              $varHash->{form} .= "<p>&nbsp;</p>";
154          }          }
155            # Close the table of contents.
156            $varHash->{formIndex} .= $cgi->end_ul();
157      } elsif (! $class) {      } elsif (! $class) {
158          Trace("Producing index of search tools.") if T(3);          Trace("Producing index of search tools.") if T(3);
159          # No class specified, so we simply generate an index of the          # No class specified, so we simply generate an index of the

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3