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

Diff of /FigWebServices/reset_curator.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Mon Dec 5 19:12:12 2005 UTC revision 1.3, Wed Jun 21 17:16:38 2006 UTC
# Line 23  Line 23 
23  use HTML;  use HTML;
24    
25  use CGI;  use CGI;
26    use CGI::Carp qw(fatalsToBrowser);
27  my $cgi = new CGI;  my $cgi = new CGI;
28    
29    
# Line 30  Line 31 
31  my $subsys = $cgi->param('subsystem');  my $subsys = $cgi->param('subsystem');
32  my $who    = $cgi->param('to');  my $who    = $cgi->param('to');
33    
34    my @all=$fig->all_subsystems;
35    map {s/_/ /g} @all;
36    
37    push @$html, $cgi->start_form(),
38         $cgi->p("Change owner of: ", $cgi->popup_menu(-name=>"subsystem", -values=>\@all)),
39         $cgi->p("To: ", $cgi->textfield(-name=>"to", -size=>20)),
40         $cgi->p($all),
41         $cgi->end_form;
42    
43    if ($subsys && $who)
44    {
45  $subsys =~ s/ /_/g;  $subsys =~ s/ /_/g;
46  if ($subsys && $who && (-d "$FIG_Config::data/Subsystems/$subsys") && ($fig->subsystem_curator ne $who) &&  if ($subsys && $who && (-d "$FIG_Config::data/Subsystems/$subsys") && ($fig->subsystem_curator ne $who) &&
47      $fig->reset_subsystem_curator($subsys,$who))      $fig->reset_subsystem_curator($subsys,$who))
# Line 40  Line 52 
52  {  {
53      push(@$html,$cgi->h1("Failed to reset curator of $subsys to $who"));      push(@$html,$cgi->h1("Failed to reset curator of $subsys to $who"));
54  }  }
55    }
56  &HTML::show_page($cgi,$html);  &HTML::show_page($cgi,$html);

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3