[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.148, Tue Aug 30 21:11:26 2005 UTC revision 1.149, Tue Sep 6 21:13:48 2005 UTC
# Line 908  Line 908 
908          for my $ent (@subsystems) {          for my $ent (@subsystems) {
909              my($sub, $role) = @$ent;              my($sub, $role) = @$ent;
910              my $curator = &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));              my $can_alter;
912    
913              my $esc_sub = uri_escape($sub);  # in URI::Escape              my $esc_sub = uri_escape($sub);  # in URI::Escape
914              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 %opts = (SPROUT => $sprout,
915                            user => $user,
916                            ssa_name => $esc_sub,
917                            request => 'show_ssa',
918                            show_clusters => 1,
919                            sort => 'by_phylo'
920                            );
921    
922                if (($user = $cgi->param('user')) && ($user eq $curator))
923                {
924                    $opts{can_alter} = 1;
925                }
926    
927                my $opts = join("&", map { "$_=$opts{$_}" } keys(%opts));
928    
929    #            my $url = $cgi->a({href => "subsys.cgi?${can_alter}SPROUT=$sprout&user=$user&ssa_name=$esc_sub&request=show_ssa&show_clusters=1&sort=by_phylo"}, $sub);
930                my $url = $cgi->a({href => "subsys.cgi?$opts"}, $sub);
931    
932              push(@table, [$url, $curator, $role]);              push(@table, [$url, $curator, $role]);
933          }          }

Legend:
Removed from v.1.148  
changed lines
  Added in v.1.149

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3