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

Diff of /FigWebServices/protein.cgi

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

revision 1.88, Wed Feb 23 12:10:28 2005 UTC revision 1.89, Fri Feb 25 17:20:42 2005 UTC
# Line 639  Line 639 
639    
640          for my $ent (@subsystems) {          for my $ent (@subsystems) {
641              my($sub, $role) = @$ent;              my($sub, $role) = @$ent;
642              my $url = $cgi->a({href => "subsys.cgi?SPROUT=$sprout&user=$user&ssa_name=$sub&request=show_ssa"}, $sub);              my $can_alter = (($user = $cgi->param('user')) && ($user eq $fig_or_sprout->subsystem_curator($sub)));
643                my $url = $cgi->a({href => "subsys.cgi?can_alter=$can_alter&SPROUT=$sprout&user=$user&ssa_name=$sub&request=show_ssa"}, $sub);
644    
645              push(@table, [$url, $role]);              push(@table, [$url, $role]);
646          }          }
647          push(@$html, &HTML::make_table(\@hdrs, \@table));          push(@$html, &HTML::make_table(\@hdrs, \@table));

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3