[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.37, Mon Aug 23 21:46:44 2004 UTC revision 1.38, Mon Sep 13 02:12:21 2004 UTC
# Line 1  Line 1 
 use CGI;  
   
 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;  
 }  
 use CGI;  
   
1  use FIG;  use FIG;
2  my $fig = new FIG;  my $fig = new FIG;
3    
# Line 560  Line 541 
541      }      }
542    
543    
544    
545        my @attr = $fig->feature_attributes($peg);
546        if (@attr > 0)
547        {
548            my $tab = [];
549            foreach $_ (@attr)
550            {
551                my($tag,$val,$url) = @$_;
552                push(@$tab,[$tag,"<a href=\"$url\">$val</a>"]);
553            }
554            push(@$html,$cgi->br,$cgi->hr,&HTML::make_table(["Key","Value"],$tab,"Attributes"),$cgi->hr);
555        }
556    
557      #      #
558      # Show the subsystems in which this protein participates.      # Show the subsystems in which this protein participates.
559      #      #

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3