[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.24, Thu Dec 9 18:26:36 2004 UTC revision 1.25, Fri Dec 10 07:04:39 2004 UTC
# Line 668  Line 668 
668                   $cgi->br,                   $cgi->br,
669           );           );
670    
671        # RAE: First, a sanity check.
672        # We may have to move this a little earlier, and show probably throw some nicer
673        # errors to the end user (.e.g try setting can_alter and choosing an illegitimate ss
674        # Do we know about this subsystem:
675        unless (grep {/$ssa/} map {$_->[0]} &existing_subsystem_annotations)
676        {
677         # No, we don't know about this subsystem
678         my $url = &FIG::cgi_url . "/subsys.cgi?user=$user";
679         push @$html, "Sorry. $name is not a valid subsystem. <p>\n",
680         "Please return to the <a href=\"$url\">Subsystems Page</a> and choose an exisiting subsystem. <p>\n",
681         "Sorry.";
682         return undef;
683        }
684    
685    
686      &format_roles($fig,$cgi,$html,$subsystem,$can_alter);      &format_roles($fig,$cgi,$html,$subsystem,$can_alter);
687      &format_subsets($fig,$cgi,$html,$subsystem,$can_alter);      &format_subsets($fig,$cgi,$html,$subsystem,$can_alter);
688    
# Line 1454  Line 1469 
1469           );           );
1470  }  }
1471    
1472    # RAE: I think this should be placed as a method in
1473    # Subsystems.pm and called subsystems I know about or something.
1474    # Cowardly didn't do though :-)
1475  sub existing_subsystem_annotations {  sub existing_subsystem_annotations {
1476      my($ssa,$name);      my($ssa,$name);
1477      my @ssa = ();      my @ssa = ();

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3