[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.55, Fri Aug 19 15:47:54 2005 UTC revision 1.56, Mon Sep 12 14:53:13 2005 UTC
# Line 621  Line 621 
621          if (! $user) { $user = "" }          if (! $user) { $user = "" }
622          my $trans = $cgi->param('translate') ? "&translate=1" : "";          my $trans = $cgi->param('translate') ? "&translate=1" : "";
623          my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";          my $sprout = $cgi->param('SPROUT') ? "&SPROUT=1" : "";
624          my $link = &FIG::cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";  ###a
625    
626    ### This used to be
627    ###     my $link = &FIG::cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";
628    ###
629    ### The cost became prohibitive in the subsystem spreadsheets.  Hence, we cache the value
630    ###
631    ### RAO
632    
633            if (! $cgi_url) { $cgi_url = &FIG::cgi_url }
634            my $link = $cgi_url . "/protein.cgi?prot=$fid&user=$user$trans$sprout";
635          $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;          $link =~ s/[a-z_A-Z0-9]+\.cgi\?/protein.cgi?/;
636          #          #
637          # 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.55  
changed lines
  Added in v.1.56

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3