[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.6, Wed Jun 29 13:47:58 2005 UTC revision 1.7, Wed Jun 29 14:48:27 2005 UTC
# Line 110  Line 110 
110  #   print STDERR &Dumper(\@homologs);  #   print STDERR &Dumper(\@homologs);
111    
112      my $sc;      my $sc;
113      my @tab = map { ($peg,$sc) = @$_; [$sc,      my @tab = map { my($peg,$sc,$sim) = @$_; [$sim,$sc,
114                                         &HTML::fid_link($cgi,$peg),                                         &HTML::fid_link($cgi,$peg),
115                                         $fig_or_sprout->genus_species($fig_or_sprout->genome_of($peg)),                                         $fig_or_sprout->genus_species($fig_or_sprout->genome_of($peg)),
116                                         scalar $fig_or_sprout->function_of($peg,$cgi->param('user')),                                         scalar $fig_or_sprout->function_of($peg,$cgi->param('user')),
# Line 118  Line 118 
118                                        ] } @pinned;                                        ] } @pinned;
119      if (@tab > 0)      if (@tab > 0)
120      {      {
121          push(@$html,&HTML::make_table(["Score","PEG","Genome", "Function","Aliases"],\@tab,"PEGs that Might Be in Clusters"));          push(@$html,&HTML::make_table(["Sim. Sc.","Coupling Score","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]);              push(@homologs,[$id2,scalar @coup,$sim->psc]);
152          }          }
153      }      }
154      return sort { $b->[1] <=> $a->[1] } @homologs;      return sort { $b->[1] <=> $a->[1] } @homologs;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3