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

Diff of /FigWebServices/DocDirectory.cgi

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

revision 1.1, Tue Jul 26 20:20:44 2005 UTC revision 1.2, Mon Aug 1 16:29:22 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3    use FIG;
4    
5  BEGIN {  BEGIN {
6      # Print the HTML header.      # Print the HTML header.
7      print "CONTENT-TYPE: text/html\n\n";      print "CONTENT-TYPE: text/html\n\n";
# Line 18  Line 20 
20  use Tracer;  use Tracer;
21  use PageBuilder;  use PageBuilder;
22    
23  my $dir = "$FIG_Config::cgi_base/Html/pod_docs";  #my $dir = "$FIG_Config::cgi_base/Html/pod_docs";
24    #
25    # I don't see how the above could have worked. Fixing below
26    #
27    # RDO
28    
29    my $dir = "$FIG_Config::fig/CGI/Html/pod_docs";
30  my $links = "";  my $links = "";
31  # Open the documentation directory, and build a table of contents for it.  # Open the documentation directory, and build a table of contents for it.
32  if (-d $dir) {  if (-d $dir) {
# Line 26  Line 34 
34      for my $file (@files) {      for my $file (@files) {
35          if ($file =~ /^(.+)\.html$/) {          if ($file =~ /^(.+)\.html$/) {
36              my $fileName = $1;              my $fileName = $1;
37              $links .= "<a href=\"$FIG_Config::cgi_url/Html/pod_docs/$file\" target=\"mainFrame\">$fileName</a><br>\n";              my $cgi = &FIG::cgi_url();
38                $links .= "<a href=\"$cgi/Html/pod_docs/$file\" target=\"mainFrame\">$fileName</a><br>\n";
39          }          }
40      }      }
41      print PageBuilder::Build("<$FIG_Config::cgi_base/Html/DirectoryTemplate.htm",      print PageBuilder::Build("<$FIG_Config::cgi_base/Html/DirectoryTemplate.htm",

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3