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

Annotation of /FigWebServices/reset_curator.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : overbeek 1.1 # -*- perl -*-
2 :    
3 :     use FIG;
4 :     my $fig = new FIG;
5 :    
6 :     use HTML;
7 :    
8 :     use CGI;
9 :     my $cgi = new CGI;
10 :    
11 :    
12 :     my $html = [];
13 :     my $subsys = $cgi->param('subsystem');
14 :     my $who = $cgi->param('to');
15 :    
16 :     $subsys =~ s/ /_/g;
17 :     if ($subsys && $who && (-d "$FIG_Config::data/Subsystems/$subsys") && ($fig->subsystem_curator ne $who) &&
18 :     $fig->reset_subsystem_curator($subsys,$who))
19 :     {
20 :     push(@$html,$cgi->h1("Reset curator of $subsys to $who"));
21 :     }
22 :     else
23 :     {
24 :     push(@$html,$cgi->h1("Failed to reset curator of $subsys to $who"));
25 :     }
26 :     &HTML::show_page($cgi,$html);

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3