[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.147, Wed Aug 17 01:20:14 2005 UTC revision 1.148, Tue Aug 30 21:11:26 2005 UTC
# Line 1897  Line 1897 
1897    
1898      my %coupled;      my %coupled;
1899    
1900        #
1901        # Make a pass over the features, determining what subsystems they appear in. Assign
1902        # unique numbers (names?) for them.
1903        #
1904    
1905        my %fid_to_subs;
1906        my %subs;
1907        for my $fid (@$feat)
1908        {
1909            my $subs = [&peg_to_subsystems($fig_or_sprout, $fid)];
1910            map { $subs{$_}++ } @$subs;
1911            $fid_to_subs{$fid} = $subs;
1912        }
1913    
1914        my $sub_idx = 1;
1915        my %sub_names;
1916        for my $sub (sort { $subs{$b} <=> $subs{$a} } keys %subs)
1917        {
1918            $sub_names{$sub} = $sub_idx++;
1919        }
1920    
1921      my $fc_sc;      my $fc_sc;
1922      foreach $fid1 (@$feat) {      foreach $fid1 (@$feat) {
1923          my $best_clusters_link = "<a href=" . &cgi_url . "/homologs_in_clusters.cgi?prot=$fid1&user=$user&SPROUT=$sprout><img src=\"Html/button-cl.png\" border=\"0\"></a>";          my $best_clusters_link = "<a href=" . &cgi_url . "/homologs_in_clusters.cgi?prot=$fid1&user=$user&SPROUT=$sprout><img src=\"Html/button-cl.png\" border=\"0\"></a>";
# Line 1975  Line 1996 
1996    
1997          $comment = $comment ? $comment : "&nbsp;";          $comment = $comment ? $comment : "&nbsp;";
1998          # RAE Count the number of subsystems. This is just copied from elsewhere          # RAE Count the number of subsystems. This is just copied from elsewhere
1999          my @in_sub  = &peg_to_subsystems($fig_or_sprout,$fid1);          #my @in_sub  = &peg_to_subsystems($fig_or_sprout,$fid1);
2000            my @in_sub = @{$fid_to_subs{$fid1}};
2001    
2002          my $in_sub;          my $in_sub;
2003          if (@in_sub > 0) {          if (@in_sub > 0) {
2004              $in_sub = @in_sub;              $in_sub = @in_sub;
2005                $in_sub .= ": " . join(" ", map { $sub_names{$_} } @in_sub);
2006          } else {          } else {
2007              $in_sub = "&nbsp;";              $in_sub = "&nbsp;";
2008          }          }

Legend:
Removed from v.1.147  
changed lines
  Added in v.1.148

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3