[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.108, Sun Nov 19 15:11:40 2006 UTC revision 1.109, Wed Nov 29 15:19:19 2006 UTC
# 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            my $virt = "&48hr_job=" . $cgi->param("48hr_job");
860          Trace("Sprout mode is \"$sprout\".") if T(4);          Trace("Sprout mode is \"$sprout\".") if T(4);
861          if ($1 ne "peg" && ! $sprout)          if ($1 ne "peg" && ! $sprout)
862          {          {
863             Trace("Creating feature link for $fid.") if T(4);             Trace("Creating feature link for $fid.") if T(4);
864             my $user = $cgi->param('user');             my $user = $cgi->param('user');
865             if (! $user) { $user = "" }             if (! $user) { $user = "" }
866             $link = "$top/feature.cgi?feature=$fid&user=$user$sprout";             $link = "$top/feature.cgi?feature=$fid&user=$user$sprout$virt";
867             $link =~ s/[a-z_A-Z0-9]+\.cgi\?/feature.cgi?/;             $link =~ s/[a-z_A-Z0-9]+\.cgi\?/feature.cgi?/;
868          }          }
869          else          else
# Line 883  Line 884 
884    
885              #if (! $cgi_url) { $cgi_url = &FIG::cgi_url }              #if (! $cgi_url) { $cgi_url = &FIG::cgi_url }
886              #$link = $cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";              #$link = $cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";
887              $link = "$top/protein.cgi?prot=$fid&user=$user$trans$sprout\&new_framework=$new_framework";              $link = "$top/protein.cgi?prot=$fid&user=$user$trans$sprout$virt\&new_framework=$new_framework";
888              $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;              $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;
889          }          }
890          if ($just_url)          if ($just_url)

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3