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

Diff of /FigWebServices/homologs_in_clusters.cgi

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

revision 1.3.2.2, Wed Jun 29 16:11:00 2005 UTC revision 1.3.2.3, Tue Jul 12 15:39:01 2005 UTC
# Line 118  Line 118 
118                                        ] } @pinned;                                        ] } @pinned;
119      if (@tab > 0)      if (@tab > 0)
120      {      {
121          push(@$html,&HTML::make_table(["Sim. Sc.","Coupling Score","PEG","Genome", "Function","Aliases"],\@tab,"PEGs that Might Be in Clusters"));          push(@$html,&HTML::make_table(["Sim. Sc.","Cluster Size","PEG","Genome", "Function","Aliases"],\@tab,"PEGs that Might Be in Clusters"));
122      }      }
123      else      else
124      {      {
# Line 148  Line 148 
148          if ((! $seen{$genome2}) && (@coup = $fig_or_sprout->coupled_to($id2)) && (@coup > 0))          if ((! $seen{$genome2}) && (@coup = $fig_or_sprout->coupled_to($id2)) && (@coup > 0))
149          {          {
150              $seen{$genome2} = 1;              $seen{$genome2} = 1;
151              push(@homologs,[$id2,scalar @coup,$sim->psc]);              push(@homologs,[$id2,@coup+1,$sim->psc]);
152          }          }
153      }      }
154      return sort { $b->[1] <=> $a->[1] } @homologs;      return sort { $b->[1] <=> $a->[1] } @homologs;

Legend:
Removed from v.1.3.2.2  
changed lines
  Added in v.1.3.2.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3