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

Diff of /FigWebServices/clust_ss.cgi

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

revision 1.2, Mon Feb 18 22:08:23 2008 UTC revision 1.3, Fri Mar 7 11:33:06 2008 UTC
# Line 85  Line 85 
85      my($fig,$cgi,$retry) = @_;      my($fig,$cgi,$retry) = @_;
86    
87      my $just_hypo = $cgi->param('just_hypo');      my $just_hypo = $cgi->param('just_hypo');
88        my $restrict  = $cgi->param('restrict');
89      if (open(INTERESTING,"<$FIG_Config::global/interesting.pegs"))      if (open(INTERESTING,"<$FIG_Config::global/interesting.pegs"))
90      {      {
91          my @pegs = <INTERESTING>;          my @pegs = <INTERESTING>;
92          chomp @pegs;          chomp @pegs;
93          close(INTERESTING);          close(INTERESTING);
94    
95            if ($restrict)
96            {
97                @pegs = map  { $_->[0] }
98                        grep { $_->[1] =~ /$restrict/ }
99                        map  { [$_,$fig->genus_species(&FIG::genome_of($_))] }
100                        @pegs;
101            }
102    
103          my $tries = 30;          my $tries = 30;
104          my $peg;          my $peg;
105          while ((! $peg) && $tries)          while ((! $peg) && $tries)
# Line 166  Line 175 
175                                    -method => 'post'),                                    -method => 'post'),
176                   'User: ',                   'User: ',
177                   $cgi->textfield(-name => "user", -size => 10, -value => ''),                   $cgi->textfield(-name => "user", -size => 10, -value => ''),
178                     "<br>Restrict to genomes matching the pattern: ",
179                     $cgi->textfield(-name => "restrict", -size => 20, -value => ''),
180                   $cgi->br,$cgi->br,                   $cgi->br,$cgi->br,
181                   $cgi->checkbox(-name => 'just_hypo', -value => "", -checked => 0, -label => 'just hypothetical'),                   $cgi->checkbox(-name => 'just_hypo', -value => "", -checked => 0, -label => 'just hypothetical'),
182                   $cgi->br,$cgi->br,                   $cgi->br,$cgi->br,

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3