[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.30, Tue Jul 20 20:59:37 2004 UTC revision 1.31, Thu Jul 22 15:43:53 2004 UTC
# Line 516  Line 516 
516          push(@$html,&HTML::make_table($col_hdrs,$tab,$title));          push(@$html,&HTML::make_table($col_hdrs,$tab,$title));
517      }      }
518    
     my $tab = [map { [$_] } $fig->peg_links($peg)];  
519    
520      #      #
521      # Show the subsystems in which this protein participates.      # Show the subsystems in which this protein participates.
# Line 543  Line 542 
542      }      }
543    
544      push(@$html,$cgi->hr);      push(@$html,$cgi->hr);
545      if (@$tab > 0)  
546        my @links = $fig->peg_links($peg);
547        if (@links > 0)
548      {      {
549          my $col_hdrs = ["Links"];          my $col_hdrs = [1,2,3,4,5];
550          my $title    = "Links to Related Entries in Other Sites";          my $title    = "Links to Related Entries in Other Sites";
551            my $tab = [];
552            my ($n,$i);
553            for ($i=0; ($i < @links); $i += 5)
554            {
555                $n = (($i + (5-1)) < @links) ? $i+(5-1) : $i+(@links - $i);
556                push(@$tab,[@links[$i..$n]]);
557            }
558          push(@$html,&HTML::make_table($col_hdrs,$tab,$title));          push(@$html,&HTML::make_table($col_hdrs,$tab,$title));
559      }      }
560    

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3