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

Diff of /FigWebServices/check_subsys.cgi

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

revision 1.4, Wed Dec 8 23:18:01 2004 UTC revision 1.5, Wed Apr 6 01:01:22 2005 UTC
# Line 115  Line 115 
115      my $user=$cgi->param('user');      my $user=$cgi->param('user');
116      my @checked = map { chop; [split(/\t/,$_)] } `$FIG_Config::bin/check_subsystems $subsys`;      my @checked = map { chop; [split(/\t/,$_)] } `$FIG_Config::bin/check_subsystems $subsys`;
117      # RAE: it only makes sense to have Assign Role in column 1, so I duplicate this instead of leaving the column empty. Blah.      # RAE: it only makes sense to have Assign Role in column 1, so I duplicate this instead of leaving the column empty. Blah.
118      $col_hdrs1 = ["PEG","Function","Role","Assign Role","Other Subsystems","Genome"];      $col_hdrs1 = ["PEG","Assign Function", "Function","Role","Assign Role","Other Subsystems","Genome"];
119      $col_hdrs2 = ["PEG","Function","Role","Other Subsystems","Genome"];      $col_hdrs2 = ["PEG","Function","Role","Other Subsystems","Genome"];
120      $tab1 = [];      $tab1 = [];
121      $tab2 = [];      $tab2 = [];
# Line 134  Line 134 
134            }            }
135          }          }
136          my $link = &HTML::fid_link($cgi,$peg);          my $link = &HTML::fid_link($cgi,$peg);
137            my $funcbox=$cgi->checkbox(-name=>"checked", -label=>'', -value=>"to=$peg,from=$func");
138          my $checkbox=$cgi->checkbox(-name=>"checked", -label=>'', -value=>"to=$peg,from=$role");          my $checkbox=$cgi->checkbox(-name=>"checked", -label=>'', -value=>"to=$peg,from=$role");
139          if ($code eq "mismatch")          if ($code eq "mismatch")
140          {          {
141              push(@$tab1,[$link,$func,$role,$checkbox,$othersubsys,$gs]);              push(@$tab1,[$link,$funcbox,$func,$role,$checkbox,$othersubsys,$gs]);
142          }          }
143          else          else
144          {          {
# Line 148  Line 149 
149      # RAE addd the form controls      # RAE addd the form controls
150      push(@$html, $cgi->start_form( -method => 'post', -action => 'fid_checked.cgi', -name => 'fid_checked'), $cgi->hidden(-name => 'user', -value => $user));      push(@$html, $cgi->start_form( -method => 'post', -action => 'fid_checked.cgi', -name => 'fid_checked'), $cgi->hidden(-name => 'user', -value => $user));
151      push(@$html,&HTML::make_table($col_hdrs1,$tab1,"PEGs IN Subsystem with MISMATCHING Functions"));      push(@$html,&HTML::make_table($col_hdrs1,$tab1,"PEGs IN Subsystem with MISMATCHING Functions"));
152      push(@$html, $cgi->br, &HTML::java_buttons("fid_checked", "checked"), $cgi->br);  
153      push(@$html, $cgi->submit(-name=>'batch_assign', -label=>"Assign Roles to Selected PEGs"));      # RAE: The way that I have done this, we can't add javascript buttons because both the function and role boxes have the same name
154        # so you can only check one or the other
155        # push(@$html, $cgi->br, &HTML::java_buttons("fid_checked", "checked"), $cgi->br);
156        push(@$html, $cgi->submit(-name=>'batch_assign', -label=>"Assign Functions or Roles to Selected PEGs"));
157      push(@$html,$cgi->hr,$cgi->br,$cgi->br);      push(@$html,$cgi->hr,$cgi->br,$cgi->br);
158    
159      push(@$html,&HTML::make_table($col_hdrs2,$tab2,"PEGs NOT in Subsystem with MATCHING Functions"));      push(@$html,&HTML::make_table($col_hdrs2,$tab2,"PEGs NOT in Subsystem with MATCHING Functions"));

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3