[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.59, Fri Sep 16 15:18:26 2005 UTC revision 1.60, Fri Sep 16 20:00:12 2005 UTC
# Line 617  Line 617 
617              $n = $fid;              $n = $fid;
618          }          }
619    
620            my $link;
621          #added to format prophage and path island links to feature.cgi          #added to format prophage and path island links to feature.cgi
622          if ($1 ne "peg")          if ($1 ne "peg")
623          {          {
624             my $user = $cgi->param('user');             my $user = $cgi->param('user');
625             if (! $user) { $user = "" }             if (! $user) { $user = "" }
626             my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";             my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";
627             my $link = &FIG::cgi_url . "/feature.cgi?feature=$fid&user=$user$trans$sprout";             $link = &FIG::cgi_url . "/feature.cgi?feature=$fid&user=$user$trans$sprout";
628             $link =~ s/[a-z_A-Z0-9]+\.cgi\?/feature.cgi?/;             $link =~ s/[a-z_A-Z0-9]+\.cgi\?/feature.cgi?/;
            return "<a href=$link>$n</a>";  
629          }          }
630            else
         if ($1 eq "peg")  
631          {          {
632              my $user = $cgi->param('user');              my $user = $cgi->param('user');
633              if (! $user) { $user = "" }              if (! $user) { $user = "" }
# Line 644  Line 643 
643  ### RAO  ### RAO
644    
645              if (! $cgi_url) { $cgi_url = &FIG::cgi_url }              if (! $cgi_url) { $cgi_url = &FIG::cgi_url }
646              my $link = $cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";              $link = $cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";
647              $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;              $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;
648              #              #
649              # Elimin the p2p part if we're in that subdir. Ugh.              # Elimin the p2p part if we're in that subdir. Ugh.
650              #              #
651              $link =~ s,p2p/protein.cgi,protein.cgi,;              $link =~ s,p2p/protein.cgi,protein.cgi,;
652            }
   
653              if ($just_url)              if ($just_url)
654              {              {
655                    return $link;                    return $link;
# Line 661  Line 659 
659                    return "<a href=$link>$n</a>";                    return "<a href=$link>$n</a>";
660              }              }
661          }          }
     }  
662      return $fid;      return $fid;
663  }  }
664    

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3