[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.6, Wed Jun 29 13:47:58 2005 UTC
# Line 116  Line 116 
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        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(["Score","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 {
130      my($fig_or_sprout,$cgi,$peg) = @_;      my($fig_or_sprout,$cgi,$peg) = @_;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3