[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.129, Wed Jul 6 04:17:38 2005 UTC revision 1.130, Thu Jul 7 14:38:46 2005 UTC
# Line 1807  Line 1807 
1807      my $in_cluster = &in_cluster_with($fig_or_sprout,$cgi,$peg);      my $in_cluster = &in_cluster_with($fig_or_sprout,$cgi,$peg);
1808      my $col_hdrs;      my $col_hdrs;
1809    
1810        # RAE Added Subsys col headers
1811      if ($cgi->param('SPROUT'))      if ($cgi->param('SPROUT'))
1812      {      {
1813          $col_hdrs = ["fid","starts","ends","size","","gap","find<br>best<br>clusters","pins","fc-sc","comment","","","aliases"];          $col_hdrs = ["fid","starts","ends","size","","gap","find<br>best<br>clusters","pins","fc-sc","SS","comment","","","aliases"];
1814      }      }
1815      else      else
1816      {      {
1817          $col_hdrs = ["fid","starts","ends","size","","gap","find<br>best<br>clusters","pins","fc-sc","comment","aliases"];          $col_hdrs = ["fid","starts","ends","size","","gap","find<br>best<br>clusters","pins","fc-sc","SS","comment","aliases"];
1818      }      }
1819    
1820      my($tab) = [];      my($tab) = [];
# Line 1899  Line 1899 
1899          $sz = abs($end1-$beg1)+1;          $sz = abs($end1-$beg1)+1;
1900    
1901          $comment = $comment ? $comment : "&nbsp;";          $comment = $comment ? $comment : "&nbsp;";
1902            # RAE Count the number of subsystems. This is just copied from elsewhere
1903            my @in_sub  = &peg_to_subsystems($fig_or_sprout,$fid1);
1904            my $in_sub;
1905            if (@in_sub > 0) {
1906                $in_sub = @in_sub;
1907            } else {
1908                $in_sub = "&nbsp;";
1909            }
1910    
1911          if ($cgi->param('SPROUT'))          if ($cgi->param('SPROUT'))
1912          {          {
1913              my($s_link, $g_link);              my($s_link, $g_link);
# Line 1916  Line 1925 
1925                          $best_clusters_link,                          $best_clusters_link,
1926                          $fc ? $fc : "&nbsp;",                          $fc ? $fc : "&nbsp;",
1927                          $fc_sc ? $fc_sc : "&nbsp;",                          $fc_sc ? $fc_sc : "&nbsp;",
1928                            $in_sub,
1929                          $comment,                          $comment,
1930                          $s_link,                          $s_link,
1931                          $g_link,                          $g_link,
# Line 1926  Line 1936 
1936              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,
1937                          $best_clusters_link,                          $best_clusters_link,
1938                          $fc,$fc_sc,                          $fc,$fc_sc,
1939                            $in_sub,
1940                          $comment,                          $comment,
1941                          $aliases]);                          $aliases]);
1942          }          }

Legend:
Removed from v.1.129  
changed lines
  Added in v.1.130

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3