[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

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

revision 1.69, Fri Oct 14 20:24:27 2005 UTC revision 1.70, Mon Oct 24 21:50:35 2005 UTC
# Line 142  Line 142 
142      my($cgi,$html,$no_home, $alt_header, $css, $javasrc, $cookie) = @_;      my($cgi,$html,$no_home, $alt_header, $css, $javasrc, $cookie) = @_;
143      my $i;      my $i;
144    
145        my $top = top_link();
146    
147      # ARGUMENTS:      # ARGUMENTS:
148      #     $cgi is the CGI method      #     $cgi is the CGI method
149      #     $html is an array with all the html in it. It is just joined by "\n" (and not <br> or <p>      #     $html is an array with all the html in it. It is just joined by "\n" (and not <br> or <p>
# Line 340  Line 342 
342    
343      if (!$css || !$css->{'Default'})      if (!$css || !$css->{'Default'})
344      {      {
345         $css->{'Default'} = &FIG::cgi_url() . "/Html/css/default.css";         $css->{'Default'} = "$top/Html/css/default.css";
346      }      }
347      if (!$css->{"Sans Serif"})      if (!$css->{"Sans Serif"})
348      {      {
349         $css->{'Sans Serif'} = &FIG::cgi_url() . "/Html/css/sanserif.css";         $css->{'Sans Serif'} = "$top/Html/css/sanserif.css";
350      }      }
351    
352      my $csstext = "<link rel='stylesheet' title='default' href='".$css->{'Default'}."' type='text/css'>\n";      my $csstext = "<link rel='stylesheet' title='default' href='".$css->{'Default'}."' type='text/css'>\n";
# Line 356  Line 358 
358         $csstext .= "<link rel='alternate stylesheet' title='$k' href='".$css->{$k}."' type='text/css'>\n";         $csstext .= "<link rel='alternate stylesheet' title='$k' href='".$css->{$k}."' type='text/css'>\n";
359      }      }
360    
361      $csstext   .= "<link rel='alternate'  title='SEED RSS feeds' href='".&FIG::cgi_url()."/Html/rss/SEED.rss' type='application/rss+xml'>\n";      $csstext   .= "<link rel='alternate'  title='SEED RSS feeds' href='$top/Html/rss/SEED.rss' type='application/rss+xml'>\n";
362    
363      # RAE: also added support for external javascripts here.      # RAE: also added support for external javascripts here.
364      # we are cluttering the HTML code with all the javascripts when they could easily be in external files      # we are cluttering the HTML code with all the javascripts when they could easily be in external files
# Line 366  Line 368 
368      # it will reduce our overhead.      # it will reduce our overhead.
369    
370      # $javasrc must be a ref to an array with urls (absolute or relative) to the javascripts      # $javasrc must be a ref to an array with urls (absolute or relative) to the javascripts
371      push @$javasrc, &FIG::cgi_url() . "/Html/css/FIG.js";      push @$javasrc, "$top/Html/css/FIG.js";
372      foreach my $script (@$javasrc) {      foreach my $script (@$javasrc) {
373          $csstext .= "<script src=\"$script\" type=\"text/javascript\"></script>\n";          $csstext .= "<script src=\"$script\" type=\"text/javascript\"></script>\n";
374      }      }

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3