[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.12, Fri May 11 06:17:14 2007 UTC revision 1.13, Tue Apr 29 08:08:25 2008 UTC
# Line 22  Line 22 
22  use HTML;  use HTML;
23  use strict;  use strict;
24  use CGI;  use CGI;
25  my $cgi = new CGI;  use FIG_CGI;
   
26  use FIG;  use FIG;
27    
28  my $sproutAvail = eval {  my $sproutAvail = eval {
29      require SproutFIG;      require SproutFIG;
30      require PageBuilder;      require PageBuilder;
31  };  };
32    
33  my($fig_or_sprout);  my($fig_or_sprout, $cgi) = FIG_CGI::init();
34  my $is_sprout;  
35  my $html = [];  my $html = [];
36    
37  if ($cgi->param('SPROUT')) {  unshift @$html, "<TITLE>The Homologs in  Clusters Page</TITLE>\n";
     $is_sprout = 1;  
     $fig_or_sprout = new SproutFIG($FIG_Config::sproutDB, $FIG_Config::sproutData);  
     unshift @$html, "<TITLE>The NMPDR Homologs in Clusters Page</TITLE>\n";  
 } else {  
     $is_sprout = 0;  
     $fig_or_sprout = new FIG;  
     unshift @$html, "<TITLE>The SEED Homologs in  Clusters Page</TITLE>\n";  
 }  
38    
39  if (0)  if (0)
40  {  {
# Line 99  Line 91 
91    
92  &compute_desired_homologs($fig_or_sprout,$cgi,$html,$prot);  &compute_desired_homologs($fig_or_sprout,$cgi,$html,$prot);
93    
94  if ($is_sprout)  if (ref $fig_or_sprout eq 'SFXlate')
95  {  {
96      my $h = { homologs => $html,      my $h = { homologs => $html,
97                title => "NMPDR Homologs in Clusters Page"};                title => "NMPDR Homologs in Clusters Page"};

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3