[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.146, Tue Aug 16 19:40:15 2005 UTC revision 1.147, Wed Aug 17 01:20:14 2005 UTC
# Line 901  Line 901 
901          my(@hdrs);          my(@hdrs);
902          my(@table);          my(@table);
903    
904          @hdrs = ("Subsystem", "Role");          @hdrs = ("Subsystem", "Curator", "Role");
905    
906          my $sprout = $cgi->param('SPROUT') ? 1 : "";          my $sprout = $cgi->param('SPROUT') ? 1 : "";
907    
908          for my $ent (@subsystems) {          for my $ent (@subsystems) {
909              my($sub, $role) = @$ent;              my($sub, $role) = @$ent;
910              my $can_alter = (($user = $cgi->param('user')) && ($user eq subsystem_curator($fig_or_sprout,$sub)));              my $curator = &subsystem_curator($fig_or_sprout,$sub);
911                my $can_alter = (($user = $cgi->param('user')) && ($user eq $curator));
912              my $esc_sub = uri_escape($sub);  # in URI::Escape              my $esc_sub = uri_escape($sub);  # in URI::Escape
913              my $url = $cgi->a({href => "subsys.cgi?can_alter=$can_alter&SPROUT=$sprout&user=$user&ssa_name=$esc_sub&request=show_ssa&show_clusters=1&sort=by_phylo"}, $sub);              my $url = $cgi->a({href => "subsys.cgi?can_alter=$can_alter&SPROUT=$sprout&user=$user&ssa_name=$esc_sub&request=show_ssa&show_clusters=1&sort=by_phylo"}, $sub);
914    
915              push(@table, [$url, $role]);              push(@table, [$url, $curator, $role]);
916          }          }
917          push(@$html, &HTML::make_table(\@hdrs, \@table));          push(@$html, &HTML::make_table(\@hdrs, \@table));
918      }      }

Legend:
Removed from v.1.146  
changed lines
  Added in v.1.147

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3