[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.165, Mon Jul 17 19:50:08 2006 UTC revision 1.166, Tue Jul 18 16:09:30 2006 UTC
# Line 550  Line 550 
550  sub color_diagram_role_by_av  sub color_diagram_role_by_av
551  {  {
552    
553    my ($fig,$cgi,$ss_name,$ss_obj,$roles)=@_;    my ($fig,$cgi,$ss_name,$ss_obj,$roles,$diagram_name)=@_;
554    my $dir = "$FIG_Config::temp_url";    my $dir = "$FIG_Config::temp_url";
555    my $genome_id = $cgi->param('att_data_genome_id');    my $genome_id = $cgi->param('att_data_genome_id');
556    my $attribute=$cgi->param('color_diagram_by_peg_tag');    my $attribute=$cgi->param('color_diagram_by_peg_tag');
557      my $diagram_id = "d01";
558    
559    my $diagram_html_file = $ss_obj->get_diagram_html_file("d01");    my @all_diagrams = $ss_obj->get_diagrams();
560      foreach my $ad (@all_diagrams){
561          if ($diagram_name eq @$ad[1]){
562              $diagram_id = @$ad[0];
563          }
564      }
565    
566      my $diagram_html_file = $ss_obj->get_diagram_html_file($diagram_id);
567    open(IN2, $diagram_html_file);    open(IN2, $diagram_html_file);
568    open(OUT2,">$FIG_Config::temp/painted_diagram.html");    open(OUT2,">$FIG_Config::temp/painted_diagram.html");
569    
# Line 1556  Line 1564 
1564    
1565      if ($cgi->param('paint_diagram_role_by_attribute_value'))      if ($cgi->param('paint_diagram_role_by_attribute_value'))
1566      {      {
1567            if ($cgi->param('paint_diagram_role_by_attribute_value')){
1568                my $diagram_name = $cgi->param('diagram_to_color');
1569          my $possible_roles_to_color = &find_roles_to_color($fig,$cgi,$html,$subsystem);          my $possible_roles_to_color = &find_roles_to_color($fig,$cgi,$html,$subsystem);
1570          &color_diagram_role_by_av($fig,$cgi,$ssa,$subsystem,$possible_roles_to_color);              &color_diagram_role_by_av($fig,$cgi,$ssa,$subsystem,$possible_roles_to_color,$diagram_name);
1571          &make_link_to_painted_diagram($fig,$cgi,$html);          &make_link_to_painted_diagram($fig,$cgi,$html);
1572      }      }
1573  }  }
1574    }
1575    
1576    
1577  #-----------------------------------------------------------------------------  #-----------------------------------------------------------------------------
# Line 2043  Line 2054 
2054      my($fig, $cgi, $html, $subsystem, $can_alter) = @_;      my($fig, $cgi, $html, $subsystem, $can_alter) = @_;
2055    
2056      my @diagrams = $subsystem->get_diagrams();      my @diagrams = $subsystem->get_diagrams();
2057        my @diagram_names;
2058    
2059      if (@diagrams or $can_alter)      if (@diagrams or $can_alter)
2060      {      {
# Line 2062  Line 2074 
2074          for my $dent (@diagrams)          for my $dent (@diagrams)
2075          {          {
2076              my($id, $name, $link) = @$dent;              my($id, $name, $link) = @$dent;
2077                push(@diagram_names,$name);
2078    
2079              my @row;              my @row;
2080    
2081              my $js = "showDiagram('$link', '$id'); return false;";              my $js = "showDiagram('$link', '$id'); return false;";
# Line 2143  Line 2157 
2157          push(@tbl_attribute,["Select attribute", $cgi->popup_menu(-name => 'color_diagram_by_peg_tag', -values=>\@select_keys), $cgi->br]);          push(@tbl_attribute,["Select attribute", $cgi->popup_menu(-name => 'color_diagram_by_peg_tag', -values=>\@select_keys), $cgi->br]);
2158          my @values = ("essential","nonessential","potential_essential","undetermined");          my @values = ("essential","nonessential","potential_essential","undetermined");
2159    
2160            push(@tbl_attribute,["Select Diagram", $cgi->popup_menu(-name => 'diagram_to_color', -values=>\@diagram_names), $cgi->br]);
2161          push(@tbl_attribute,["Select value", $cgi->popup_menu(-name => 'value_to_color', -values=>\@values), $cgi->br]);          push(@tbl_attribute,["Select value", $cgi->popup_menu(-name => 'value_to_color', -values=>\@values), $cgi->br]);
2162    
2163          push(@$html, $cgi->h3("Color Diagram Roles by Essentiality Attribute Value"));          push(@$html, $cgi->h3("Color Diagram Roles by Essentiality Attribute Value"));

Legend:
Removed from v.1.165  
changed lines
  Added in v.1.166

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3