[Bio] / FigWebServices / genome_statistics.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/genome_statistics.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6, Wed Oct 27 02:51:43 2004 UTC revision 1.7, Sat Dec 18 13:03:01 2004 UTC
# Line 38  Line 38 
38  }  }
39    
40  my $html = [];  my $html = [];
41  unshift @$html, "<TITLE>The SEED Statics Page</TITLE>\n";  unshift @$html, "<TITLE>The SEED Statistics Page</TITLE>\n";
42    
43  my $genome = $cgi->param('genome');  my $genome = $cgi->param('genome');
44  if ((! $genome) || (! -d "$FIG_Config::organisms/$genome"))  if ((! $genome) || (! -d "$FIG_Config::organisms/$genome"))
45  {  {
46      unshift @$html, "<TITLE>The SEED Statics Page</TITLE>\n";      unshift @$html, "<TITLE>The SEED Statistics Page</TITLE>\n";
47      push(@$html,"<h1>Sorry, you need to specify a valid genome</h1>\n");      push(@$html,"<h1>Sorry, you need to specify a valid genome</h1>\n");
48      &HTML::show_page($cgi,$html);      &HTML::show_page($cgi,$html);
49      exit;      exit;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3