[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.27, Tue Dec 21 20:20:52 2004 UTC revision 1.28, Thu Jan 13 17:32:51 2005 UTC
# Line 426  Line 426 
426          my $user = $cgi->param('user');          my $user = $cgi->param('user');
427          if (! $user) { $user = "" }          if (! $user) { $user = "" }
428          my $trans = $cgi->param('translate') ? "&translate=1" : "";          my $trans = $cgi->param('translate') ? "&translate=1" : "";
429          my $link = &FIG::cgi_url . "/protein.cgi?prot=$fid&user=$user$trans";          my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";
430            my $link = &FIG::cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";
431          $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;          $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;
432          #          #
433          # Elimin the p2p part if we're in that subdir. Ugh.          # Elimin the p2p part if we're in that subdir. Ugh.

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3