[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.2, Mon Aug 1 16:29:22 2005 UTC revision 1.5, Wed Oct 12 21:03:16 2005 UTC
# Line 25  Line 25 
25  # I don't see how the above could have worked. Fixing below  # I don't see how the above could have worked. Fixing below
26  #  #
27  # RDO  # RDO
28    #
29    # Apparently I mis-interpreted what some of the FIG_Config
30    # parameters meant. Sorry.
31    #
32    # Bruce
33    
34  my $dir = "$FIG_Config::fig/CGI/Html/pod_docs";  my $dir = "$FIG_Config::fig/CGI/Html/pod_docs";
35  my $links = "";  my $links = "";
# Line 34  Line 39 
39      for my $file (@files) {      for my $file (@files) {
40          if ($file =~ /^(.+)\.html$/) {          if ($file =~ /^(.+)\.html$/) {
41              my $fileName = $1;              my $fileName = $1;
42              my $cgi = &FIG::cgi_url();              my $cgi = &FIG::cgi_url(-relative => 1);
43              $links .= "<a href=\"$cgi/Html/pod_docs/$file\" target=\"mainFrame\">$fileName</a><br>\n";              $links .= "<a href=\"$cgi/Html/pod_docs/$file\" target=\"mainFrame\">$fileName</a><br>\n";
44          }          }
45      }      }
46      print PageBuilder::Build("<$FIG_Config::cgi_base/Html/DirectoryTemplate.htm",      print PageBuilder::Build("<$FIG_Config::fig/CGI/Html/DirectoryTemplate.html",
47                               { index => $links });                               { index => $links });
48  }  }
49    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3