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

View of /FigWebServices/reset_curator.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (annotate)
Sat Feb 26 11:01:13 2005 UTC (15 years, 3 months ago) by overbeek
Branch: MAIN
CVS Tags: merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, merge-trunktag-bobdev_news-1, merge-bodev_news-3, caBIG-00-00-00, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
add reset_curator.cgi

# -*- perl -*-

use FIG;
my $fig = new FIG;

use HTML;

use CGI;
my $cgi = new CGI;


my $html = [];
my $subsys = $cgi->param('subsystem');
my $who    = $cgi->param('to');

$subsys =~ s/ /_/g;
if ($subsys && $who && (-d "$FIG_Config::data/Subsystems/$subsys") && ($fig->subsystem_curator ne $who) &&
    $fig->reset_subsystem_curator($subsys,$who))
{
    push(@$html,$cgi->h1("Reset curator of $subsys to $who"));
}
else
{
    push(@$html,$cgi->h1("Failed to reset curator of $subsys to $who"));
}
&HTML::show_page($cgi,$html);

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3