fechaPagina(); exit; } $genopar = new Genopar(__FILE__); verGetPost(array("mtg")); $genopar->abrePagina("Export Assembly to GenBank"); if (!$mtg){ /* */ $mtgs = obtemMtgs($genopar); $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.tar.gz"; system("perl geraGenBankMtg.pl ".$genopar->MySQL_Default_DBname." $mtg $outFile"); echo "".basename($outFile).""; $genopar->fechaPagina(); function obtemMtgs($genopar){ $mtgs = array(); $genopar->abreBanco(); $q = "SELECT DISTINCT idMontagem FROM contig"; $n = $genopar->queryBanco($q); if($n > 0) while($res = $genopar->getArray()){ array_push($mtgs, $res['idMontagem']); } $genopar->fechaBanco(); return $mtgs; } ?>