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

Diff of /FigWebServices/ssa2.cgi

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

revision 1.4, Sat Apr 10 00:33:53 2004 UTC revision 1.5, Mon Apr 12 17:39:41 2004 UTC
# Line 152  Line 152 
152                   $cgi->hidden(-name => 'request', -value => 'new_ssa', -override => 1),                   $cgi->hidden(-name => 'request', -value => 'new_ssa', -override => 1),
153                   "Name of New Subsystem Annotation: ",                   "Name of New Subsystem Annotation: ",
154                   $cgi->textfield(-name => "ssa_name", -size => 50),                   $cgi->textfield(-name => "ssa_name", -size => 50),
155                     $cgi->hidden(-name => 'can_alter', -value => 1, -override => 1),
156                   $cgi->br,                   $cgi->br,
157                   $cgi->submit('start new subsystem annotation'),                   $cgi->submit('start new subsystem annotation'),
158                   $cgi->end_form                   $cgi->end_form
# Line 336  Line 337 
337    
338      my $user = $cgi->param('user');      my $user = $cgi->param('user');
339      my $ssa  = $cgi->param('ssa_name');      my $ssa  = $cgi->param('ssa_name');
340        my $can_alter = $cgi->param('can_alter');
341      if  (! $user)      if  (! $user)
342      {      {
343          push(@$html,$cgi->h1('You need to specify a user to work on a subsystem annotation'));          push(@$html,$cgi->h1('You need to specify a user to work on a subsystem annotation'));
# Line 358  Line 359 
359                                    -method => 'post'),                                    -method => 'post'),
360                   $cgi->hidden(-name => 'user', -value => $user, -override => 1),                   $cgi->hidden(-name => 'user', -value => $user, -override => 1),
361                   $cgi->hidden(-name => 'request', -value => 'show_ssa_noload', -override => 1),                   $cgi->hidden(-name => 'request', -value => 'show_ssa_noload', -override => 1),
362                     $cgi->hidden(-name => 'can_alter', -value => $can_alter, -override => 1),
363                   $cgi->hidden(-name => 'ssa_name', -value => $name, -override => 1),                   $cgi->hidden(-name => 'ssa_name', -value => $name, -override => 1),
364                   $cgi->br,                   $cgi->br,
365           );           );
# Line 367  Line 369 
369      &format_subsets($fig,$cgi,$html,$subsetsC,$active_subsetC,$subsetsR,$active_subsetR);      &format_subsets($fig,$cgi,$html,$subsetsC,$active_subsetC,$subsetsR,$active_subsetR);
370      &format_rows($fig,$cgi,$html,$roles,$genomes,$rows,$subsetsC,$active_subsetC,$subsetsR,$active_subsetR);      &format_rows($fig,$cgi,$html,$roles,$genomes,$rows,$subsetsC,$active_subsetC,$subsetsR,$active_subsetR);
371    
372      if ($cgi->param('can_alter'))      if ($can_alter)
373      {      {
374          &format_extend_with($fig,$cgi,$html,$genomes,$roles);          &format_extend_with($fig,$cgi,$html,$genomes,$roles);
375          push(@$html,$cgi->checkbox(-name => 'precise_fill', -value => 1, -checked => 0, -override => 1,-label => 'fill'),$cgi->br);          push(@$html,$cgi->checkbox(-name => 'precise_fill', -value => 1, -checked => 0, -override => 1,-label => 'fill'),$cgi->br);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3