[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.22, Thu Nov 4 16:13:35 2004 UTC revision 1.23, Tue Nov 16 18:44:56 2004 UTC
# Line 412  Line 412 
412          my $user = $cgi->param('user');          my $user = $cgi->param('user');
413          if (! $user) { $user = "" }          if (! $user) { $user = "" }
414          my $trans = $cgi->param('translate') ? "&translate=1" : "";          my $trans = $cgi->param('translate') ? "&translate=1" : "";
415          my $link = $cgi->url() . "?prot=$fid&user=$user$trans";          my $link = $FIG_Config::cgi_url . "/protein.cgi?prot=$fid&user=$user$trans";
416          $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;          $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;
417          #          #
418          # 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.22  
changed lines
  Added in v.1.23

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3