[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.5, Wed Apr 6 01:01:22 2005 UTC revision 1.6, Wed Apr 6 03:17:59 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","Assign Function", "Function","Role","Assign Role","Other Subsystems","Genome"];      $col_hdrs1 = ["PEG","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);
         my $funcbox=$cgi->checkbox(-name=>"checked", -label=>'', -value=>"to=$peg,from=$func");  
137          my $checkbox=$cgi->checkbox(-name=>"checked", -label=>'', -value=>"to=$peg,from=$role");          my $checkbox=$cgi->checkbox(-name=>"checked", -label=>'', -value=>"to=$peg,from=$role");
138          if ($code eq "mismatch")          if ($code eq "mismatch")
139          {          {
140              push(@$tab1,[$link,$funcbox,$func,$role,$checkbox,$othersubsys,$gs]);              push(@$tab1,[$link,$func,$role,$checkbox,$othersubsys,$gs]);
141          }          }
142          else          else
143          {          {
# Line 150  Line 149 
149      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));
150      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"));
151    
152      # 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      push(@$html, $cgi->br, &HTML::java_buttons("fid_checked", "checked"), $cgi->br);
     # so you can only check one or the other  
     # push(@$html, $cgi->br, &HTML::java_buttons("fid_checked", "checked"), $cgi->br);  
153      push(@$html, $cgi->submit(-name=>'batch_assign', -label=>"Assign Functions or Roles to Selected PEGs"));      push(@$html, $cgi->submit(-name=>'batch_assign', -label=>"Assign Functions or Roles to Selected PEGs"));
154      push(@$html,$cgi->hr,$cgi->br,$cgi->br);      push(@$html,$cgi->hr,$cgi->br,$cgi->br);
155    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3