[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.81, Tue Jun 28 16:29:41 2005 UTC revision 1.82, Tue Jun 28 17:25:04 2005 UTC
# Line 335  Line 335 
335      my($fig,$cgi,$html) = @_;      my($fig,$cgi,$html) = @_;
336    
337      my $user = $cgi->param('user');      my $user = $cgi->param('user');
338      my $name = $cgi->param('ssa_name');      my $name = $fig->clean_spaces($cgi->param('ssa_name')); # RAE remove extraneous spaces in the name
339    
340      if  (! $user)      if  (! $user)
341      {      {
# Line 345  Line 345 
345    
346      if  (! $name)      if  (! $name)
347      {      {
348          push(@$html,$cgi->h1('You need to specify a subsystem name'));          push(@$html,$cgi->h1("You need to specify a subsystem name, $name is not valid"));
349          return;          return;
350      }      }
351    
# Line 382  Line 382 
382    
383      $subsystem->write_subsystem();      $subsystem->write_subsystem();
384    
385        $cgi->param(-name  => "ssa_name",
386                    -value => $ssa); # RAE this line was needed because otherwise a newly created subsystem was not opened!
387      $cgi->param(-name => "can_alter",      $cgi->param(-name => "can_alter",
388                  -value => 1);                  -value => 1);
389      &one_cycle($fig,$cgi,$html);      &one_cycle($fig,$cgi,$html);

Legend:
Removed from v.1.81  
changed lines
  Added in v.1.82

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3