[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.25, Fri May 14 18:06:51 2004 UTC revision 1.26, Mon May 17 09:22:50 2004 UTC
# Line 532  Line 532 
532      }      }
533    
534      my $tab = [map { [$_] } $fig->peg_links($peg)];      my $tab = [map { [$_] } $fig->peg_links($peg)];
535    
536        push(@$html,$cgi->hr);
537      if (@$tab > 0)      if (@$tab > 0)
538      {      {
539          my $col_hdrs = ["Links"];          my $col_hdrs = ["Links"];
540          my $title    = "Links to Related Entries in Other Sites";          my $title    = "Links to Related Entries in Other Sites";
541          push(@$html,$cgi->hr,&HTML::make_table($col_hdrs,$tab,$title));          push(@$html,&HTML::make_table($col_hdrs,$tab,$title));
542      }      }
543    
544        my $url = &FIG::cgi_url . "/add_links.cgi?peg=$peg";
545        push(@$html,"<a href=$url>To Add New Links to this Gene</a>\n");
546    
547  #    $_ = join("",map { $_->[1] } @funcs);  #    $_ = join("",map { $_->[1] } @funcs);
548  #    @ecs = ($_ =~ /\d\.\d+\.\d+\.\d+/g);  #    @ecs = ($_ =~ /\d\.\d+\.\d+\.\d+/g);
549  #    foreach $ec (@ecs)  #    foreach $ec (@ecs)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3