viral.html

<p>
<%perl>
open(IN, "<$ENV{PRFDB_HOME}/data/recode2.txt");
my @acc = ();
while (my $line = <IN>) {
    chomp $line;
    my ($accession, $position, $recode_id) = split(/\t/, $line);
    if ($accession =~ /\,/) {
	my @accessions = split(/\,/, $accession);
	$accession = $accessions[0];
    }
    push(@acc, $accession);
    if ($position =~ /\,/) {
	my @positions = split(/\,/, $position);
	$position = $positions[0];
    }

    my $species = $db->MySelect(type => 'single', statement => "SELECT genename FROM gene_info WHERE accession = '$accession'");

    my $string = qq|Species: ${species}, Accession:<a href="/search.html?accession=$accession">$accession</a>, Position: $position<br>\n|;
    print "$string";
}

</%perl>
</p>