[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.4, Fri Mar 28 13:24:39 2008 UTC revision 1.5, Wed Apr 16 00:55:53 2008 UTC
# Line 95  Line 95 
95          if ($restrict)          if ($restrict)
96          {          {
97              @pegs = map  { $_->[0] }              @pegs = map  { $_->[0] }
98                      grep { $_->[1] =~ /$restrict/ }                      grep { $_->[1] =~ /$restrict/i }
99                      map  { [$_,$fig->genus_species(&FIG::genome_of($_))] }                      map  { [$_,$fig->genus_species(&FIG::genome_of($_))] }
100                      @pegs;                      @pegs;
101          }          }
# Line 124  Line 124 
124          if ((! $peg) && $retry)          if ((! $peg) && $retry)
125          {          {
126              &clean_interesting($fig);              &clean_interesting($fig);
127              return &get_interesting($fig,0);              return &get_interesting($fig,$cgi,0);
128          }          }
129          else          else
130          {          {

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3