'; $genopar->abreBanco(); verGetPost(array("seq", "mtg", "tipo")); if ($seq == "") $genopar->error("Deve-se informar a seqüência a ser detalhada."); $arraySeqs = split("_", $seq); $query = ""; $col=70; echo "

";

for ($i=0; $i<count($arraySeqs); $i++){
	$query .= showSeq($arraySeqs[$i], $mtg, $tipo, $genopar);
}

echo '

'; echo "

"; if ($tipo == 'n'){ $megablast="http://www.ncbi.nlm.nih.gov/BLAST/Blast.cgi?QUERY=$query&DATABASE=nr&PAGE=Nucleotides&PROGRAM=blastn&BLAST_PROGRAMS=megaBlast&PAGE_TYPE=BlastSearch"; $blastx="http://www.ncbi.nlm.nih.gov/BLAST/Blast.cgi?QUERY=$query&DATABASE=nr&PAGE=Nucleotides&PROGRAM=blastn&BLAST_PROGRAMS=blastx&PAGE_TYPE=BlastSearch"; echo "Mandar para o BLAST (MEGABLAST)
"; echo "Mandar para o BLAST (BLASTX)"; }elseif ($tipo == 'p'){ $blastp="http://www.ncbi.nlm.nih.gov/BLAST/Blast.cgi?QUERY=$query&DATABASE=nr&PAGE=Proteins&PROGRAM=blastp&BLAST_PROGRAMS=blastp&PAGE_TYPE=BlastSearch"; echo "Mandar para o BLAST (BLASTP)"; } echo "

"; function showSeq($orfID, $mtg, $tipo){ $ORFfile = "Fasta/$mtg/ORFs/$tipo/".$orfID.".fas"; if (!is_readable($ORFfile)){ $genopar->error("Nao foram encontradas informações correspondentes à ORF $orfID", FALSE); return; } $col=70; $file = fopen($ORFfile, 'r'); $fastaHeader = fgets($file, 4096); echo $fastaHeader; while (!feof($file)){ $query .= fgets($file, 4096); } echo $query; // $query .= " "; return $query; } ?>