fechaPagina(); exit; } verGetPost(array("mtg", "processa", "contig", "tipoArq")); $genopar= new Genopar(__FILE__); if (!$mtg){ $mtgs = obtemMtgs($genopar); $genopar->abrePagina("Atualizar Montagem"); $genopar->abreForm(); echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo "

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

"; $genopar->fechaForm(); $genopar->fechaPagina(); } $genopar->abrePagina("Atualizar Montagem $mtg"); if($processa == 'Deletar'){ $ctgFastaDir = "Fasta/$mtg/Contigs"; $orfFastaDir = "Fasta/$mtg/ORFs"; $blastDir = "BlastReports/$mtg"; $rmCtgFiles = "rm -f $ctgFastaDir/{n,p}/Contig".$contig.".fas"; system($rmCtgFiles); $q = "SELECT id FROM orf WHERE idMontagem='$mtg' AND contigId=$contig"; $genopar->abreBanco(); $genopar->queryBanco($q); $orfs = array(); while ($lin = $genopar->getArray()){ array_push($orfs, $lin['id']); $rmOrfFiles = "rm -f $orfFastaDir/{n,p}/ORF".$lin['id'].".fas"; $rmBlastFile = "rm -f $blastDir/ORF".$lin['id'].".blast"; system($rmOrfFiles); system($rmBlastFile); } $orfTables = array( "anotacao", "blastp_nr", "orf", "rbs", "startCodons" ); foreach ($orfs as $orf){ foreach($orfTables as $table){ switch ($table){ case 'blastp_nr': $idAttrib = "orfId"; break; case 'startCodons': $idAttrib = "idOrf"; break; default: $idAttrib = "id"; } $q = "DELETE FROM $table WHERE idMontagem='$mtg' AND $idAttrib=$orf"; $genopar->queryBanco($q); } } $q = "DELETE FROM tRNA WHERE idMontagem='$mtg' AND contigId=$contig"; $genopar->queryBanco($q); $q = "DELETE FROM contig WHERE idMontagem='$mtg' AND id=$contig"; $genopar->queryBanco($q); $genopar->fechaBanco(); echo "

O contig $contig foi completamente removido.

"; } echo " "; $genopar->abreBanco(); $n= $genopar->queryBanco("SELECT id as contig, tam FROM contig WHERE idMontagem='$mtg'"); $contig_lab= array(); while ($lin= $genopar->getArray()){ array_push($contig_lab, $lin['contig']); $contigs[$lin['contig']]=$lin['tam']; } $genopar->abreForm("return confirmaRemocao(this);"); $genopar->input("mtg", "hidden", $mtg); echo "

Contig:

"; $genopar->submit("Deletar", "processa"); echo "

"; echo "
"; echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo "

"; $genopar->input("tipoArq", "radio", "fasta", "checked"); echo " Arquivo Montagem (Fasta): "; echo "	"; $genopar->input("fastaFile", "file"); echo "
"; $genopar->input("tipoArq", "radio", "gbZip"); echo " Arquivos Anotação (GenBank): "; echo "	"; $genopar->input("gbZipFile", "file"); echo "
"; $genopar->submit("Enviar", "processa"); echo "

"; $genopar->fechaForm(); $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; } ?>