[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.65, Tue Oct 11 17:14:48 2005 UTC revision 1.66, Wed Oct 12 21:03:16 2005 UTC
# Line 64  Line 64 
64    
65          for $_ (@html_hdr)          for $_ (@html_hdr)
66          {          {
67              s,(href|img\s+src)="/FIG/,\1="$FIG_Config::cgi_base,g;              s,(href|img\s+src)="/FIG/,\1=".,g;
68              s,(\?user\=)\",$1$user",;              s,(\?user\=)\",$1$user",;
69              if ($_ eq "<!-- HEADER_INSERT -->\n")              if ($_ eq "<!-- HEADER_INSERT -->\n")
70              {              {
# Line 695  Line 695 
695             my $user = $cgi->param('user');             my $user = $cgi->param('user');
696             if (! $user) { $user = "" }             if (! $user) { $user = "" }
697             my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";             my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";
698             $link = &FIG::cgi_url . "/feature.cgi?feature=$fid&user=$user$trans$sprout";             $link = "feature.cgi?feature=$fid&user=$user$trans$sprout";
699             $link =~ s/[a-z_A-Z0-9]+\.cgi\?/feature.cgi?/;             $link =~ s/[a-z_A-Z0-9]+\.cgi\?/feature.cgi?/;
700          }          }
701          else          else
# Line 717  Line 717 
717              #$link = $cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";              #$link = $cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";
718              $link = "protein.cgi?prot=$fid&user=$user$trans$sprout";              $link = "protein.cgi?prot=$fid&user=$user$trans$sprout";
719              $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;              $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;
             #  
             # Elimin the p2p part if we're in that subdir. Ugh.  
             #  
             $link =~ s,p2p/protein.cgi,protein.cgi,;  
720          }          }
721          if ($just_url)          if ($just_url)
722          {          {
# Line 1133  Line 1129 
1129     {     {
1130          title           => "The SEED",          title           => "The SEED",
1131          description     => "Latest news from the SEED",          description     => "Latest news from the SEED",
1132          link            => &FIG::cgi_url()."/Html/rss/SEED.rss",          link            => "Html/rss/SEED.rss",
1133     },     },
1134    
1135    "SEEDsubsystems.rss" =>    "SEEDsubsystems.rss" =>
1136    {    {
1137          title           => "SEED Subsystems",          title           => "SEED Subsystems",
1138          description     => "Recently updated SEED subsystems",          description     => "Recently updated SEED subsystems",
1139          link            => &FIG::cgi_url()."/Html/rss/SEEDsubsystems.rss",          link            => "Html/rss/SEEDsubsystems.rss",
1140    },    },
1141    
1142    "SEEDsubsystems.rss" =>    "SEEDsubsystems.rss" =>

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3