[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.56, Thu Mar 10 20:39:00 2005 UTC revision 1.57, Thu Mar 10 23:13:37 2005 UTC
# Line 388  Line 388 
388  #  #
389  sub one_cycle {  sub one_cycle {
390      my($fig,$cgi,$html) = @_;      my($fig,$cgi,$html) = @_;
391        my $subsystem;
392    
393      my $user = $cgi->param('user');      my $user = $cgi->param('user');
394      my $ssa  = $cgi->param('ssa_name');      my $ssa  = $cgi->param('ssa_name');
395    
396      if  (! $ssa)      if  ((! $ssa) || (! ($subsystem = new Subsystem($ssa,$fig,0))))
397      {      {
398          push(@$html,$cgi->h1('You need to specify a subsystem'));          push(@$html,$cgi->h1('You need to specify a subsystem'));
399          return;          return;
400      }      }
401    
     my $subsystem = new Subsystem($ssa,$fig,0);  
402      if (&handle_role_and_subset_changes($fig,$subsystem,$cgi,$html))      if (&handle_role_and_subset_changes($fig,$subsystem,$cgi,$html))
403      {      {
404          &process_spreadsheet_changes($fig,$subsystem,$cgi,$html);          &process_spreadsheet_changes($fig,$subsystem,$cgi,$html);

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3