[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.50, Sat Jul 30 13:11:13 2005 UTC revision 1.51, Mon Aug 1 16:29:22 2005 UTC
# Line 271  Line 271 
271    
272      if (!$css || !$css->{'Default'})      if (!$css || !$css->{'Default'})
273      {      {
274         $css->{'Default'}=$FIG_Config::cgi_url."/Html/css/default.css";         $css->{'Default'} = &FIG::cgi_url() . "/Html/css/default.css";
275      }      }
276      if (!$css->{"Sans Serif"})      if (!$css->{"Sans Serif"})
277      {      {
278         $css->{'Sans Serif'}=$FIG_Config::cgi_url."/Html/css/sanserif.css";         $css->{'Sans Serif'} = &FIG::cgi_url() . "/Html/css/sanserif.css";
279      }      }
280      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";
281      $csstext   .= "<link rel='alternate stylesheet' title='Sans Serif' href='".$css->{'Sans Serif'}."' type='text/css'>\n";      $csstext   .= "<link rel='alternate stylesheet' title='Sans Serif' href='".$css->{'Sans Serif'}."' type='text/css'>\n";
# Line 295  Line 295 
295      # it will reduce our overhead.      # it will reduce our overhead.
296    
297      # $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
298      push @$javasrc, $FIG_Config::cgi_url."/Html/css/FIG.js";      push @$javasrc, &FIG::cgi_url() . "/Html/css/FIG.js";
299      foreach my $script (@$javasrc) {      foreach my $script (@$javasrc) {
300          $csstext .= "<script src=\"$script\" type=\"text/javascript\"></script>\n";          $csstext .= "<script src=\"$script\" type=\"text/javascript\"></script>\n";
301      }      }
# Line 912  Line 912 
912      $user = $cgi->param('user');      $user = $cgi->param('user');
913      $user = $user ? $user : "";      $user = $user ? $user : "";
914      $org = $org ? $org : "";      $org = $org ? $org : "";
915      my $url = "$FIG_Config::cgi_url/show_kegg_map.cgi?user=$user&map=$map&org=$org";  
916        my $url = &FIG::cgi_url() . "/show_kegg_map.cgi?user=$user&map=$map&org=$org";
917      my $link = "<a href=\"$url\">$map</a>";      my $link = "<a href=\"$url\">$map</a>";
918      return $link;      return $link;
919  }  }

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3