[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.212, Tue Jan 29 20:55:54 2008 UTC revision 1.213, Mon Feb 11 17:35:24 2008 UTC
# Line 1553  Line 1553 
1553      my($fig,$subsystem,$cgi,$html,$ssa) = @_;      my($fig,$subsystem,$cgi,$html,$ssa) = @_;
1554    
1555      my $ssa  = $cgi->param('ssa_name');      my $ssa  = $cgi->param('ssa_name');
1556      my $can_alter = ($cgi->param('can_alter') && $user && ($user eq $subsystem->get_curator));      my $compuser = $user;
1557        $compuser =~ s/master\://g;
1558        my $curateuser = $subsystem->get_curator;
1559        $curateuser =~ s/master\://g;
1560    
1561        my $can_alter = ($cgi->param('can_alter') && $user && ($compuser eq $curateuser));
1562    
1563      my $tagvalcolor; # RAE: this is a reference to a hash that stores the colors of cells by tag. This has to be consistent over the whole table.      my $tagvalcolor; # RAE: this is a reference to a hash that stores the colors of cells by tag. This has to be consistent over the whole table.
1564    
1565      my $name  = $ssa;      my $name  = $ssa;
# Line 1841  Line 1847 
1847      my $description = $subsystem->get_description();      my $description = $subsystem->get_description();
1848      if ($can_alter)      if ($can_alter)
1849      {      {
1850          push(@$html,$cgi->hr,"DESCRIPTION:\n",$cgi->br,$cgi->textarea(-name => 'desription', -rows => 30, -cols => 100, -value => $description));          push(@$html,$cgi->hr,"DESCRIPTION:\n",$cgi->br,$cgi->textarea(-name => 'description', -rows => 30, -cols => 100, -value => $description));
1851      }      }
1852      elsif ($description)      elsif ($description)
1853      {      {

Legend:
Removed from v.1.212  
changed lines
  Added in v.1.213

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3