[Bio] / FigWebServices / protein.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/protein.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.82, Fri Feb 4 06:59:46 2005 UTC revision 1.83, Wed Feb 9 20:43:27 2005 UTC
# Line 58  Line 58 
58  }  }
59    
60  my($fig_or_sprout);  my($fig_or_sprout);
61    
62    my $is_sprout;
63    
64    my $html = [];
65    
66  if ($cgi->param('SPROUT')) {  if ($cgi->param('SPROUT')) {
67        $is_sprout = 1;
68      $fig_or_sprout = new SproutFIG($FIG_Config::sproutDB, $FIG_Config::sproutData);      $fig_or_sprout = new SproutFIG($FIG_Config::sproutDB, $FIG_Config::sproutData);
69        unshift @$html, "<TITLE>The NMPDR Protein Page</TITLE>\n";
70  } else {  } else {
71        $is_sprout = 0;
72      $fig_or_sprout = new FIG;      $fig_or_sprout = new FIG;
73        unshift @$html, "<TITLE>The SEED Protein Page</TITLE>\n";
74  }  }
75    
 my $html = [];  
   
 unshift @$html, "<TITLE>The SEED Protein Page</TITLE>\n";  
76    
77  my $prot = $cgi->param('prot');  my $prot = $cgi->param('prot');
78  if (! $prot) {  if (! $prot) {
# Line 1584  Line 1590 
1590          $comment = $comment ? $comment : "&nbsp;";          $comment = $comment ? $comment : "&nbsp;";
1591          if ($cgi->param('SPROUT'))          if ($cgi->param('SPROUT'))
1592          {          {
1593                my($s_link, $g_link);
1594                if (0)
1595                {
1596                    $s_link = "<a href=$to_seed>S</a>";
1597                    $g_link = "<a href=$to_gbrowse>G</a>";
1598                }
1599                else
1600                {
1601                    $s_link = "<a href=$to_seed><img src=\"Html/button-s.png\" border=\"0\"></a>";
1602                    $g_link = "<a href=$to_gbrowse><img src=\"Html/button-g.png\" border=\"0\"></a>";
1603                }
1604              push(@$tab,[&HTML::fid_link($cgi,$fid1,"local"),$beg1,$end1,$sz,$strand,$gap,              push(@$tab,[&HTML::fid_link($cgi,$fid1,"local"),$beg1,$end1,$sz,$strand,$gap,
1605                          $must_have,                          $must_have,
1606                          $fc,$in_neighborhood,                          $fc,$in_neighborhood,
1607                          $comment,                          $comment,
1608                          "<a href=$to_seed>S</a>",                          $s_link,
1609                          "<a href=$to_gbrowse>G</a>",                          $g_link,
1610                          $aliases]);                          $aliases]);
1611          }          }
1612          else          else
# Line 1637  Line 1654 
1654  # RAO disconnect SPROUT from pinning requests until chromosomal_clusters.cgi is rewritten  # RAO disconnect SPROUT from pinning requests until chromosomal_clusters.cgi is rewritten
1655      my $sprout = $cgi->param('SPROUT') ? 1 : "";      my $sprout = $cgi->param('SPROUT') ? 1 : "";
1656      my $cluster_url  = "chromosomal_clusters.cgi?prot=$peg&user=$user&uni=1"; # &SPROUT=$sprout";      my $cluster_url  = "chromosomal_clusters.cgi?prot=$peg&user=$user&uni=1"; # &SPROUT=$sprout";
1657      my $cluster_link = "<a href=\"$cluster_url\">*</a>";  
1658        my $cluster_img = 0 ? "*" : '<img src="Html/button-fc.png" border="0">';
1659        my $cluster_link = "<a href=\"$cluster_url\">$cluster_img</a>";
1660      return $cluster_link;      return $cluster_link;
1661  }  }
1662    

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3