[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.74, Thu Jan 27 17:36:25 2005 UTC revision 1.75, Thu Jan 27 18:28:29 2005 UTC
# Line 559  Line 559 
559    
560      push(@$html,$cgi->h2("Current Assignment: $peg: $user_func"));      push(@$html,$cgi->h2("Current Assignment: $peg: $user_func"));
561    
   
562      my @maps_to  = grep { $_ ne $peg } map { $_->[0] } &mapped_prot_ids($fig_or_sprout,$cgi,$peg);      my @maps_to  = grep { $_ ne $peg } map { $_->[0] } &mapped_prot_ids($fig_or_sprout,$cgi,$peg);
563    
564      foreach $id (@maps_to) {      foreach $id (@maps_to) {
# Line 581  Line 580 
580      my $tab = [ map { ($id,$who,$func) = @$_;      my $tab = [ map { ($id,$who,$func) = @$_;
581                        [ &HTML::set_prot_links($cgi,$id),                        [ &HTML::set_prot_links($cgi,$id),
582                          &org_of($fig_or_sprout,$id),                          &org_of($fig_or_sprout,$id),
583                          $who,                          $who ? $who : " ",
584                          ($user ? &assign_link($cgi,$func,$user_func) : ""),                          ($user ? &assign_link($cgi,$func,$user_func) : " "),
585                          &set_map_links($fig_or_sprout,&genome_of($peg),$func)] } @funcs ];                          &set_map_links($fig_or_sprout,&genome_of($peg),$func)] } @funcs ];
586      if (@$tab > 0) {      if (@$tab > 0) {
587          my $col_hdrs = ["Id","Organism","Who","ASSIGN","Assignment"];          my $col_hdrs = ["Id","Organism","Who","ASSIGN","Assignment"];

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3