[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.56, Mon Sep 12 14:53:13 2005 UTC revision 1.57, Fri Sep 16 05:13:13 2005 UTC
# Line 616  Line 616 
616          {          {
617              $n = $fid;              $n = $fid;
618          }          }
619          if ($1 ne "peg") { return $n }  
620            #added to format prophage and path island links to feature.cgi
621            if ($1 ne "peg")
622            {
623               my $user = $cgi->param('user');
624               if (! $user) { $user = "" }
625               my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";
626               my $link = &FIG::cgi_url . "/feature.cgi?feature=$fid&user=$user$trans$sprout";
627               $link =~ s/[a-z_A-Z0-9]+\.cgi\?/feature.cgi?/;
628               return "<a href=$link>$n</a>";
629            }
630    
631            if ($1 eq "peg")
632            {
633          my $user = $cgi->param('user');          my $user = $cgi->param('user');
634          if (! $user) { $user = "" }          if (! $user) { $user = "" }
635          my $trans = $cgi->param('translate') ? "&translate=1" : "";          my $trans = $cgi->param('translate') ? "&translate=1" : "";
# Line 637  Line 650 
650          # Elimin the p2p part if we're in that subdir. Ugh.          # Elimin the p2p part if we're in that subdir. Ugh.
651          #          #
652          $link =~ s,p2p/protein.cgi,protein.cgi,;          $link =~ s,p2p/protein.cgi,protein.cgi,;
653                return "<a href=$link>$n</a>";
654                }
655          if ($just_url)          if ($just_url)
656          {          {
657              return $link;              return $link;

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3