[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.157, Wed Oct 5 20:34:02 2005 UTC revision 1.158, Thu Oct 6 17:09:49 2005 UTC
# Line 1141  Line 1141 
1141    
1142          $func2 = $func2 ? $func2 : " ";          $func2 = $func2 ? $func2 : " ";
1143          $aliases = $aliases ? $aliases : " ";          $aliases = $aliases ? $aliases : " ";
   
1144          push( @$html, "\t<TR>\n",          push( @$html, "\t<TR>\n",
1145                #                #
1146                #  Colorize check box by Domain                #  Colorize check box by Domain
# Line 1423  Line 1422 
1422    
1423              if (@in_sub > 0) {              if (@in_sub > 0) {
1424                  $in_sub = @in_sub;                  $in_sub = @in_sub;
1425                    # RAE: add a javascript popup with all the subsystems
1426                    my $ss_list=join "<br>", map { my $g = $_; $g =~ s/\_/ /g; $_ = $g } sort {$a cmp $b} @in_sub;
1427                    $in_sub = $cgi->a(
1428                      {id=>"subsystems", onMouseover=>"javascript:if(!this.tooltip) this.tooltip=new Popup_Tooltip(this, 'Subsystems', '$ss_list', ''); this.tooltip.addHandler(); return false;"}, $in_sub),
1429              } else {              } else {
1430                  $in_sub = "&nbsp;";                  $in_sub = "&nbsp;";
1431              }              }
# Line 2037  Line 2040 
2040              else              else
2041              {              {
2042                  $in_sub = @in_sub;                  $in_sub = @in_sub;
2043                  $in_sub .= ": " . join(" ", map { $sub_names{$_} } @in_sub);                  $in_sub .= ": " . join(" ", map { $sub_names{$_} } sort {$b cmp $a} @in_sub);
2044                    # RAE: add a javascript popup with all the subsystems
2045                    # RAE: unless you assign $_ to $g,the map operates on the result of s///, i.e. the number of substitutions made. I think there is a cleaner
2046                    # way to do this, eh Gary?
2047                    my $ss_list=join "<br>", map { my $g = "$sub_names{$_} : $_"; $g =~ s/_/ /g; $_=$g } sort {$b cmp $a} @in_sub;
2048                    $in_sub = $cgi->a(
2049                      {id=>"subsystems", onMouseover=>"javascript:if(!this.tooltip) this.tooltip=new Popup_Tooltip(this, 'Subsystems', '$ss_list', ''); this.tooltip.addHandler(); return false;"}, $in_sub),
2050              }              }
2051          } else {          } else {
2052              $in_sub = "&nbsp;";              $in_sub = "&nbsp;";

Legend:
Removed from v.1.157  
changed lines
  Added in v.1.158

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3