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

Diff of /FigWebServices/subsys.cgi

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

revision 1.144, Sat Feb 11 13:13:49 2006 UTC revision 1.145, Fri Mar 10 17:04:08 2006 UTC
# Line 36  Line 36 
36    
37  $ENV{"PATH"} = "$FIG_Config::bin:$FIG_Config::ext_bin:" . $ENV{"PATH"};  $ENV{"PATH"} = "$FIG_Config::bin:$FIG_Config::ext_bin:" . $ENV{"PATH"};
38    
39  if (0)  if (1)
40  {  {
41      my $VAR1;      my $VAR1;
42      eval(join("",`cat /tmp/ssa_parms`));      eval(join("",`cat /tmp/ssa_parms`));
# Line 1650  Line 1650 
1650                  $cgi->hr                  $cgi->hr
1651           );           );
1652    
1653      my @subset_names = $subsystem->get_subset_namesC;      my @subset_names = sort $subsystem->get_subset_namesC;
1654      if (@subset_names > 1)      if (@subset_names > 1)
1655      {      {
1656          my $active_subsetC = ($cgi->param('active_subsetC') or $subsystem->get_active_subsetC );          my $active_subsetC = ($cgi->param('active_subsetC') or $subsystem->get_active_subsetC );
# Line 1910  Line 1910 
1910      if (! $ignore_alt)      if (! $ignore_alt)
1911      {      {
1912          my $subset;          my $subset;
1913          foreach $subset (grep { $_ =~ /^\*/ } $subsystem->get_subset_namesC)          foreach $subset (grep { $_ =~ /^\*/ } sort $subsystem->get_subset_namesC)
1914          {          {
1915              my @mem = grep { $activeC{$_} } $subsystem->get_subsetC_roles($subset);              my @mem = grep { $activeC{$_} } $subsystem->get_subsetC_roles($subset);
1916              if (@mem > 1)              if (@mem > 1)
# Line 1918  Line 1918 
1918                  my $mem = [@mem];                  my $mem = [@mem];
1919                  foreach $_ (@mem)                  foreach $_ (@mem)
1920                  {                  {
1921                      $alternatives{$_} = [$subset,$mem];                      $alternatives{$_}->{$subset} = $mem;
1922                  }                  }
1923              }              }
1924          }          }
# Line 1937  Line 1937 
1937          #  Add pop-up tool tip with role name to abbreviations in column header          #  Add pop-up tool tip with role name to abbreviations in column header
1938          #  (a wonderful suggestion from Carl Woese). -- GJO          #  (a wonderful suggestion from Carl Woese). -- GJO
1939    
1940          my( $role, %in_col, $abbrev, $mem, $abbrev_html );          my( $role, %in_col, %set_shown, $abbrev, $mem, $abbrev_html );
1941          foreach $role (grep { $activeC{$_} } $subsystem->get_roles)          foreach $role (grep { $activeC{$_} } $subsystem->get_roles)
1942          {          {
             if ( ! $in_col{ $role } )  #  Make sure the role is not already done  
             {  
1943                  if ( $_ = $alternatives{ $role } )                  if ( $_ = $alternatives{ $role } )
1944                  {                  {
1945                      ( $abbrev, $mem ) = @$_;                  my @in = grep { ! $set_shown{$_} } sort keys(%$_);
1946                    foreach $abbrev (@in)
1947                    {
1948                        $set_shown{$abbrev} = 1;
1949                        $mem = $_->{$abbrev};
1950    
1951                      push( @row_guide, [ map { [ $_, "-" . ($subsystem->get_role_index($_) + 1) ] } @$mem ] );                      push( @row_guide, [ map { [ $_, "-" . ($subsystem->get_role_index($_) + 1) ] } @$mem ] );
1952                      foreach $_ ( @$mem ) { $in_col{ $_ } = 1 };  #  Mark the roles that are done                      foreach $_ ( @$mem ) { $in_col{ $_ } = 1 };  #  Mark the roles that are done
1953                      my $rolelist = join '<br>', map { substr($_->[1],1) . ". $_->[0]" } @{$row_guide[-1]};                      my $rolelist = join '<br>', map { substr($_->[1],1) . ". $_->[0]" } @{$row_guide[-1]};
1954                      $abbrev_html = "<a " . FIGjs::mouseover("Roles of $abbrev", $rolelist, '') . ">$abbrev</a>";                      $abbrev_html = "<a " . FIGjs::mouseover("Roles of $abbrev", $rolelist, '') . ">$abbrev</a>";
1955                      push( @$col_hdrs, $abbrev_html );                      push( @$col_hdrs, $abbrev_html );
1956                  }                  }
1957                  else              }
1958                elsif (! $in_col{$role})
1959                  {                  {
1960                      push( @row_guide, [ [ $role, "" ] ] );  #  No suffix on peg number                      push( @row_guide, [ [ $role, "" ] ] );  #  No suffix on peg number
1961                      $abbrev = $subsystem->get_role_abbr( $subsystem->get_role_index( $role ) );                      $abbrev = $subsystem->get_role_abbr( $subsystem->get_role_index( $role ) );
# Line 1959  Line 1963 
1963                      push( @$col_hdrs, $abbrev_html );                      push( @$col_hdrs, $abbrev_html );
1964                  }                  }
1965              }              }
         }  
1966    
1967          my $tab = [];          my $tab = [];
1968          my($genome,@pegs,@cells,$set,$peg_set,$pair,$role,$suffix,$row,$peg,$color_of,$cell,%count,$color,@colors);          my($genome,@pegs,@cells,$set,$peg_set,$pair,$role,$suffix,$row,$peg,$color_of,$cell,%count,$color,@colors);
# Line 2647  Line 2650 
2650    
2651      my @subsetR = $subsystem->get_subsetR($active_subsetR);      my @subsetR = $subsystem->get_subsetR($active_subsetR);
2652    
2653      my @alt_sets = grep { ($_ =~ /^\*/) } $subsystem->get_subset_namesC;      my @alt_sets = grep { ($_ =~ /^\*/) } sort $subsystem->get_subset_namesC;
2654      my($set,$col,%in);      my($set,$col,%in);
2655      foreach $set (@alt_sets)      foreach $set (@alt_sets)
2656      {      {
# Line 2739  Line 2742 
2742    
2743      my @subsetR = $subsystem->get_subsetR($active_subsetR);      my @subsetR = $subsystem->get_subsetR($active_subsetR);
2744    
2745      my @alt_sets = grep { ($_ =~ /^\*/) } $subsystem->get_subset_namesC;      my @alt_sets = grep { ($_ =~ /^\*/) } sort $subsystem->get_subset_namesC;
2746      my($set,$col,%in);      my($set,$col,%in);
2747      foreach $set (@alt_sets)      foreach $set (@alt_sets)
2748      {      {
# Line 2864  Line 2867 
2867    
2868      my @subsetR = $subsystem->get_subsetR($active_subsetR);      my @subsetR = $subsystem->get_subsetR($active_subsetR);
2869    
2870      my @alt_sets = grep { ($_ =~ /^\*/) } $subsystem->get_subset_namesC;      my @alt_sets = grep { ($_ =~ /^\*/) } sort $subsystem->get_subset_namesC;
2871      my($set,$col,%in);      my($set,$col,%in);
2872      foreach $set (@alt_sets)      foreach $set (@alt_sets)
2873      {      {

Legend:
Removed from v.1.144  
changed lines
  Added in v.1.145

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3