#!/usr/bin/perl
use CGI qw(param);
$tabnum = param("tab");
#$tabnum = 1;
$_ = $tabnum;
$ll = tr/0-9a-zA-Z//;
if($ll == 0){ $tabnum =1; }
print_HTMLhead();
print "ORF List for Genome Saccharomyces cerevisiae [Scer]
\n";
print "";
for ($i=1; $i<13; $i++){
if ($i == $tabnum) {
print "![](\"../picture/$i";) ";
}
else {
print "";
}
}
print " |
";
$file_name = "Scer" . $tabnum . ".html";
open(DATA, "$file_name");
while($buffer = ){
print "$buffer\n";
}
close(DATA);
print "