fechaPagina(); exit; } $genopar = new Genopar(__FILE__); verGetPost(array("mtg")); $genopar->abrePagina("Export Assembly to GenBank"); if (!$mtg){ /* */ $mtgs = $genopar->obtemMtgs(); $genopar->abreForm(); echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo "

"; echo "Assembly: "; echo "	"; $genopar->select("mtg", $mtgs, "","", TRUE); echo "
"; $genopar->submit(); echo "

"; $genopar->fechaForm(); $genopar->fechaPagina(); } $outFile = "montagens/$mtg.gbk.tar.gz"; system("perl geraGenBankMtg.pl ".$genopar->MySQL_Default_DBname." $mtg $outFile"); echo "

Assembly successfully exported. Download it by clicking here."; $genopar->fechaPagina(); ?>