[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.24, Tue May 4 14:43:01 2004 UTC revision 1.25, Fri May 14 18:06:51 2004 UTC
# Line 522  Line 522 
522      {      {
523          push(@$html,$cgi->h1("No function has been assigned"));          push(@$html,$cgi->h1("No function has been assigned"));
524      }      }
525      elsif (@funcs > 0)  
526        my $tab = [ map { ($id,$who,$func) = @$_; [ &HTML::set_prot_links($cgi,$id),$fig->org_of($id),$who,($user ? &assign_link($cgi,$func,$user_func) : ""), &set_map_links($fig,&FIG::genome_of($peg),$func)] } @funcs ];
527        if (@$tab > 0)
528      {      {
529          my $col_hdrs = ["Id","Organism","Who","ASSIGN","Assignment"];          my $col_hdrs = ["Id","Organism","Who","ASSIGN","Assignment"];
530          my $title    = "Assignments for Essentially Identical Proteins";          my $title    = "Assignments for Essentially Identical Proteins";
         my $tab = [ map { ($id,$who,$func) = @$_; [ &HTML::set_prot_links($cgi,$id),$fig->org_of($id),$who,($user ? &assign_link($cgi,$func,$user_func) : ""), &set_map_links($fig,&FIG::genome_of($peg),$func)] } @funcs ];  
531          push(@$html,&HTML::make_table($col_hdrs,$tab,$title));          push(@$html,&HTML::make_table($col_hdrs,$tab,$title));
532      }      }
533    
534        my $tab = [map { [$_] } $fig->peg_links($peg)];
535        if (@$tab > 0)
536        {
537            my $col_hdrs = ["Links"];
538            my $title    = "Links to Related Entries in Other Sites";
539            push(@$html,$cgi->hr,&HTML::make_table($col_hdrs,$tab,$title));
540        }
541    
542  #    $_ = join("",map { $_->[1] } @funcs);  #    $_ = join("",map { $_->[1] } @funcs);
543  #    @ecs = ($_ =~ /\d\.\d+\.\d+\.\d+/g);  #    @ecs = ($_ =~ /\d\.\d+\.\d+\.\d+/g);
544  #    foreach $ec (@ecs)  #    foreach $ec (@ecs)

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3