[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.5, Mon Jun 27 18:26:35 2005 UTC revision 1.8, Sun Jul 3 03:07:40 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')),
117                                         &HTML::set_prot_links($cgi,join( ', ', $fig_or_sprout->feature_aliases($peg) ))                                         &HTML::set_prot_links($cgi,join( ', ', $fig_or_sprout->feature_aliases($peg) ))
118                                        ] } @pinned;                                        ] } @pinned;
119      push(@$html,&HTML::make_table(["Score","PEG","Genome", "Function","Aliases"],\@tab,"PEGs that Might Be in Clusters"));      if (@tab > 0)
120        {
121            push(@$html,&HTML::make_table(["Sim. Sc.","Cluster Size","PEG","Genome", "Function","Aliases"],\@tab,"PEGs that Might Be in Clusters"));
122        }
123        else
124        {
125            push(@$html, $cgi->h1("Sorry, we have no clusters containing homologs of $peg"));
126        }
127  }  }
128    
129  sub relevant_homologs {  sub relevant_homologs {
# Line 141  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,@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.5  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3