[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.4, Mon Oct 2 03:07:54 2006 UTC revision 1.5, Fri Oct 6 23:22:11 2006 UTC
# Line 127  Line 127 
127          $selfURL .= ($selfURL =~ /\?/ ? ';' : '?');          $selfURL .= ($selfURL =~ /\?/ ? ';' : '?');
128          # Loop through the search classes building a table of contents.          # Loop through the search classes building a table of contents.
129          my @contents = ();          my @contents = ();
130          for my $className (@{$FIG_Config::advanced_classes}) {          for my $className (SearchHelper::AdvancedClassList()) {
131              Trace("Processing $className") if T(3);              Trace("Processing $className") if T(3);
132              my $shelp = GetHelper($cgi, $className);              my $shelp = GetHelper($cgi, $className);
133              push @contents, "<a href=\"${selfURL}Class=$className\">$className</a>: " . $shelp->Description();              push @contents, "<a href=\"${selfURL}Class=$className\">$className</a>: " . $shelp->Description();
# Line 294  Line 294 
294              # or exceed the page size.              # or exceed the page size.
295              my @tableRows = ();              my @tableRows = ();
296              my $linesLeft = $pageSize;              my $linesLeft = $pageSize;
297              while ($linesLeft-- > 0 && (my @cols = Tracer::GetLine($sessionH))) {              Trace("$linesLeft lines to read from session file.") if T(3);
298                while ($linesLeft-- > 0) {
299                    Trace("Reading line from session file.") if T(3);
300                    my @cols = Tracer::GetLine($sessionH);
301                    if (! @cols) {
302                        Trace("End of file read.") if T(3);
303                        $linesLeft = 0;
304                    } else {
305                  Trace("Line has " . scalar(@cols) . " columns. $linesLeft lines left.") if T(3);                  Trace("Line has " . scalar(@cols) . " columns. $linesLeft lines left.") if T(3);
306                  # Check the columns for run-time generation.                  # Check the columns for run-time generation.
307                  my @actual = map { substr($_,0,2) eq "%%" ? $shelp->GetRunTimeValue($_) : $_ } @cols;                  my @actual = map { substr($_,0,2) eq "%%" ? $shelp->GetRunTimeValue($_) : $_ } @cols;
308                  # Put the actual data into the table list.                  # Put the actual data into the table list.
309                  push @tableRows, \@actual;                  push @tableRows, \@actual;
310              }              }
311                }
312              # Now we're ready. We do a page navigator, a spacer, the table, a spacer,              # Now we're ready. We do a page navigator, a spacer, the table, a spacer,
313              # and another page navigator.              # and another page navigator.
314              $retVal = join("\n", $pageNavigator,              $retVal = join("\n", $pageNavigator,
# Line 375  Line 383 
383          }          }
384          # Finally, add some jump links at the front.          # Finally, add some jump links at the front.
385          my @backPointers = ();          my @backPointers = ();
386            Trace("Back pointer check. Start page is $startPage.") if T(4);
387          if ($startPage > 1) {          if ($startPage > 1) {
388              for (my $pg = $startPage - 5; $pg > 1; $pg -= 15) {              for (my $pg = $startPage - 5; $pg > 1; $pg -= 15) {
389                    Trace("Back pointer. PG = $pg.") if T(4);
390                  shift @backPointers, PageThing($cgi, $pg, $pg, $url);                  shift @backPointers, PageThing($cgi, $pg, $pg, $url);
391              }              }
392                Trace("Page 1 placement.") if T(4);
393              shift @backPointers, PageThing($cgi, "<<", 1, $url);              shift @backPointers, PageThing($cgi, "<<", 1, $url);
394          }          }
395          # Put it all together.          # Put it all together.

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3