[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.27, Tue May 18 12:50:43 2004 UTC revision 1.28, Tue Jun 1 20:22:35 2004 UTC
# Line 1  Line 1 
1  use CGI;  use CGI;
2    
 if (-f "$FIG_Config::data/Global/why_down")  
 {  
     local $/;  
     open my $fh, "<$FIG_Config::data/Global/why_down";  
     my $down_msg = <$fh>;  
   
     print CGI::header();  
     print CGI::head(CGI::title("SEED Server down"));  
     print CGI::start_body();  
     print CGI::h1("SEED Server down");  
     print CGI::p("The seed server is not currently running:");  
     print CGI::pre($down_msg);  
     print CGI::end_body();  
     exit;  
 }  
3  use FIG;  use FIG;
4  my $fig = new FIG;  my $fig = new FIG;
5    
# Line 533  Line 518 
518    
519      my $tab = [map { [$_] } $fig->peg_links($peg)];      my $tab = [map { [$_] } $fig->peg_links($peg)];
520    
521        #
522        # Show the subsystems in which this protein participates.
523        #
524    
525        if (my @subsystems = $fig->subsystems_for_peg($peg))
526        {
527            push(@$html,
528                 $cgi->hr,
529                 $cgi->h2("Subsystems in which this peg is present"));
530    
531            my(@hdrs);
532            my(@table);
533    
534            @hdrs = ("Subsystem", "Role");
535    
536            for my $ent (@subsystems)
537            {
538                my($sub, $role) = @$ent;
539                my $url = $cgi->a({href => "ssa2.cgi?user=$user&ssa_name=$sub&request=show_ssa"}, $sub);
540                push(@table, [$url, $role]);
541            }
542            push(@$html, &HTML::make_table(\@hdrs, \@table));
543        }
544    
545      push(@$html,$cgi->hr);      push(@$html,$cgi->hr);
546      if (@$tab > 0)      if (@$tab > 0)
547      {      {

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3