[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.14, Wed Oct 15 11:49:20 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;  if (ref $fig_or_sprout eq 'SFXlate') {
35        my $prot = $cgi->param('prot');
36        print $cgi->redirect(-uri => "$FIG_Config::cgi_url/wiki/rest.cgi/NmpdrPlugin/SeedViewer?page=Evidence;feature=$prot",
37                             -status => 301);
38    }
39    
40  my $html = [];  my $html = [];
41    
42  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";  
 }  
43    
44  if (0)  if (0)
45  {  {
# Line 99  Line 96 
96    
97  &compute_desired_homologs($fig_or_sprout,$cgi,$html,$prot);  &compute_desired_homologs($fig_or_sprout,$cgi,$html,$prot);
98    
99  if ($is_sprout)  if (ref $fig_or_sprout eq 'SFXlate')
100  {  {
101      my $h = { homologs => $html,      my $h = { homologs => $html,
102                title => "NMPDR Homologs in Clusters Page"};                title => "NMPDR Homologs in Clusters Page"};

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3