[Bio] / FigWebServices / genome_statistics.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/genome_statistics.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39, Mon Feb 6 20:33:56 2006 UTC revision 1.40, Mon Mar 6 16:51:27 2006 UTC
# Line 69  Line 69 
69  my $request = $cgi->param('request');  my $request = $cgi->param('request');
70  my $nmpdr = $cgi->param('SPROUT');  my $nmpdr = $cgi->param('SPROUT');
71    
72    my $sprout_param;
73    if ($nmpdr)
74    {
75        push(@$html, "SPROUT is on<br>\n");
76        $sprout_param = "&SPROUT=1";
77    }
78    
79  # RAE This little loop will add any genomes for any proteins that we know about to the list  # RAE This little loop will add any genomes for any proteins that we know about to the list
80  push @genomes, map{$fig->genome_of($_)} $cgi->param('prot');  push @genomes, map{$fig->genome_of($_)} $cgi->param('prot');
81    
# Line 569  Line 576 
576      my $genome = $cgi->param('genome');      my $genome = $cgi->param('genome');
577      my $user = $cgi->param('user');      my $user = $cgi->param('user');
578      $user = defined($user) ? $user : "";      $user = defined($user) ? $user : "";
579      my $sub_link = "<a href=./display_subsys.cgi?ssa_name=$sub&request=show_ssa&user=$user&focus=$genome&show_clusters=1>$sub</a>";      my $sub_link = "<a href=./display_subsys.cgi?ssa_name=$sub$sprout_param&request=show_ssa&user=$user&focus=$genome&show_clusters=1>$sub</a>";
580    
581      return $sub_link;      return $sub_link;
582  }  }

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3