[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.104, Fri Sep 29 17:08:21 2006 UTC revision 1.105, Tue Oct 17 12:32:12 2006 UTC
# Line 826  Line 826 
826  sub fid_link {  sub fid_link {
827      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
828      my($cgi,$fid,$local,$just_url,$fullpath) = @_;      my($cgi,$fid,$local,$just_url,$fullpath) = @_;
829        Trace("Creating link for feature $fid.") if T(4);
830      my $err=join(" ", $cgi,$fid,$local,$just_url,$fullpath);      my $err=join(" ", $cgi,$fid,$local,$just_url,$fullpath);
831    
832      my($n);      my($n);
# Line 856  Line 856 
856          my $new_framework = $cgi->param('new_framework') ? 1 : 0;          my $new_framework = $cgi->param('new_framework') ? 1 : 0;
857          #added to format prophage and path island links to feature.cgi          #added to format prophage and path island links to feature.cgi
858          my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";          my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";
859            Trace("Sprout mode is \"$sprout\".") if T(4);
860          if ($1 ne "peg" && ! $sprout)          if ($1 ne "peg" && ! $sprout)
861          {          {
862               Trace("Creating feature link for $fid.") if T(4);
863             my $user = $cgi->param('user');             my $user = $cgi->param('user');
864             if (! $user) { $user = "" }             if (! $user) { $user = "" }
865             $link = "$top/feature.cgi?feature=$fid&user=$user$sprout";             $link = "$top/feature.cgi?feature=$fid&user=$user$sprout";
# Line 865  Line 867 
867          }          }
868          else          else
869          {          {
870                Trace("Creating protein link for $fid.") if T(4);
871              my $user = $cgi->param('user');              my $user = $cgi->param('user');
872              if (! $user) { $user = "" }              if (! $user) { $user = "" }
873              my $trans = $cgi->param('translate') ? "&translate=1" : "";              my $trans = $cgi->param('translate') ? "&translate=1" : "";

Legend:
Removed from v.1.104  
changed lines
  Added in v.1.105

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3