[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.106, Tue Apr 12 20:35:12 2005 UTC revision 1.107, Thu Apr 28 19:56:10 2005 UTC
# Line 13  Line 13 
13  use FIGGenDB;  use FIGGenDB;
14  use FIGjs;  use FIGjs;
15    
16    use URI::Escape;  # uri_escape
17  use HTML;  use HTML;
18  use Data::Dumper;  use Data::Dumper;
19    
# Line 730  Line 731 
731          for my $ent (@subsystems) {          for my $ent (@subsystems) {
732              my($sub, $role) = @$ent;              my($sub, $role) = @$ent;
733              my $can_alter = (($user = $cgi->param('user')) && ($user eq $fig_or_sprout->subsystem_curator($sub)));              my $can_alter = (($user = $cgi->param('user')) && ($user eq $fig_or_sprout->subsystem_curator($sub)));
734              my $url = $cgi->a({href => "subsys.cgi?can_alter=$can_alter&SPROUT=$sprout&user=$user&ssa_name=$sub&request=show_ssa"}, $sub);              my $esc_sub = uri_escape($sub);  # in URI::Escape
735                my $url = $cgi->a({href => "subsys.cgi?can_alter=$can_alter&SPROUT=$sprout&user=$user&ssa_name=$esc_sub&request=show_ssa"}, $sub);
736    
737              push(@table, [$url, $role]);              push(@table, [$url, $role]);
738          }          }

Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3