[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.97, Fri Jul 29 19:31:21 2005 UTC revision 1.98, Fri Jul 29 20:02:20 2005 UTC
# Line 53  Line 53 
53  }  }
54    
55  my $html = [];  my $html = [];
56  push @$html, "<TITLE>SEED Subsystems</TITLE>"; # RAE: every page deserves a title  push @$html, "<TITLE>SEED Subsystems</TITLE>\n"; # RAE: every page deserves a title
57    
58  my $user = $cgi->param('user');  my $user = $cgi->param('user');
59  $fig->set_user($user);  $fig->set_user($user);
# Line 1470  Line 1470 
1470    
1471          my @row_guide = ();          my @row_guide = ();
1472    
1473          my($role,%in_col);          #  Add pop-up tool tip with role name to abbreviations in column header
1474            #  (a wonderful suggestion from Carl Woese). -- GJO
1475    
1476            my( $role, %in_col, $abbrev, $mem, $abbrev_html );
1477          foreach $role (grep { $activeC{$_} } $subsystem->get_roles)          foreach $role (grep { $activeC{$_} } $subsystem->get_roles)
1478          {          {
1479              if (! $in_col{$role})              if ( ! $in_col{ $role } )  #  Make sure the role is not already done
1480              {              {
1481                  if ($_ = $alternatives{$role})                  if ($_ = $alternatives{$role})
1482                  {                  {
1483                      my($abbrev,$mem) = @$_;                      ( $abbrev, $mem ) = @$_;
                     push(@$col_hdrs,$abbrev);  
1484                      push(@row_guide,[map { [$_,"-" . ($subsystem->get_role_index($_) + 1)] } @$mem]);                      push(@row_guide,[map { [$_,"-" . ($subsystem->get_role_index($_) + 1)] } @$mem]);
1485                      foreach $_ (@$mem) { $in_col{$_} = 1 };                      foreach $_ ( @$mem ) { $in_col{ $_ } = 1 };  #  Mark the roles that are done
1486                        my $rolelist = join '<br>', map { substr($_->[1],1) . ". $_->[0]" } @{$row_guide[-1]};
1487                        $abbrev_html = qq(<a onMouseover="javascript:if(! this.tooltip) this.tooltip=new Popup_Tooltip(this, 'Roles of $abbrev', '$rolelist', ''); this.tooltip.addHandler(); return false;">$abbrev</a>);
1488                        push( @$col_hdrs, $abbrev_html );
1489                  }                  }
1490                  else                  else
1491                  {                  {
1492                      push(@$col_hdrs,$subsystem->get_role_abbr($subsystem->get_role_index($role)));                      push( @row_guide, [ [ $role, "" ] ] );  #  No suffix on peg number
1493                      push(@row_guide,[[$role,""]]);                      $abbrev = $subsystem->get_role_abbr( $subsystem->get_role_index( $role ) );
1494                        $abbrev_html = qq(<a onMouseover="javascript:if(! this.tooltip) this.tooltip=new Popup_Tooltip(this, 'Role of $abbrev', '$role', ''); this.tooltip.addHandler(); return false;">$abbrev</a>);
1495                        push( @$col_hdrs, $abbrev_html );
1496                  }                  }
1497              }              }
1498          }          }

Legend:
Removed from v.1.97  
changed lines
  Added in v.1.98

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3