echo " <tr>\n";
echo " <td valign=\"top\"><table cellpadding=\"0\" cellspacing=\"0\" class=\"tabInterna\">\n";
echo " <tr>\n";
echo " <td>\n";
// ******** Aqui come�a o c�digo para atualizar as tabelas de cursos extra�dos **********
// 300 - Fase 1 - Inserindo na base os dados do curso extra�do
echo "<b>" . RetornaFraseDaLista($lista_frases, 300) . "</b><p>\n";
$sock = Conectar("");
// 1 - OBTER DADOS DAS TABELAS
// Obt�m os dados relevantes do curso a ser extra�do
// $dados_curso = RetornaDadosCurso($sock, $cod_curso);
$versao = RetornaVersaoAmbiente($sock);
// 2 - INSERIR ENTRADAS EM 'Cursos_extraidos'
// Atualiza os dados dos cursos extra�dos
// Reserva c�digo na tabela Cursos_extraidos
$codigo_extracao = RetornaProximoCodigo($sock, "Cursos_extraidos");
// Copia os dados do curso para a tabela Cursos_extraidos
CopiaDadosCursoParaExtraidos($sock, $codigo_extracao, $cod_curso, $versao);
// Copia as ferramentas compartilhadas para a tabela Cursos_extraidos_compart
CopiaFerrCompartCursoParaExtraidos($sock, $codigo_extracao, $cod_curso);
/********* Agora copiamos os arquivos do curso para a pasta de extra�dos *******/
// 3 - RESOLVER O CAMINHO PARA EXTRACAO
// Obt�m o caminho completo para extra��o
eval($caminho_restricao);
$caminho = RetornaCaminhoExtracao($sock, $campos_restricao, $caminho_base_extracao);
// Atualiza o campo caminho da tabela 'Cursos_extraidos'
AtualizaCaminho($sock, $caminho, $codigo_extracao);
// 301 - Fase 1 - Conclu�da
echo "<b>" . RetornaFraseDaLista($lista_frases, 301) . "</b><p>\n";
// 4 - COPIAR ARQUIVOS
/* 111 - Fase 2 - Copiando dados e arquivos */
foreach ($chk_sem_incluir as $cod => $linha) {
InsereUsuarioNoGrupoGU($sock, $cod_grupo, $linha);
}
}
AtualizaFerramentasNovaUsuario($sock, $cod_ferramenta, $cod_usuario);
echo "<html>\n";
echo " <head>\n";
echo " <script type=\"text/javascript\">\n";
echo " opener.location = 'grupos.php?cod_curso=" . $cod_curso . "&acao=incluir_no_grupo&atualizacao=true';\n";
echo " this.close();\n";
echo " </script>\n";
echo " </head>\n";
echo " <body>\n";
echo " </body>\n";
echo "</html>\n";
exit;
} else {
if ($acao == 'criar_grupo') {
$cod_grupo = RetornaProximoCodigo($sock, "Grupos");
InsereGrupoG($sock, $cod_grupo, $novo_nome);
$rep = "#G" . $cod_grupo;
$query = "insert into Portfolio_topicos (cod_topico_pai,cod_usuario,cod_grupo,tipo_compartilhamento,data,posicao_topico,topico) values (4," . $cod_usuario . "," . $cod_grupo . ",'P'," . time() . "," . UltimaPosicaoLivreTopico($sock, 4) . ",'" . $rep . "')";
Enviar($sock, $query);
AtualizaFerramentasNovaUsuario($sock, $cod_ferramenta, $cod_usuario);
$atualizacao = "true";
}
}
}
Desconectar($sock);
header("Location:grupos.php?cod_curso=" . $cod_curso . "&acao=" . $acao . "&atualizacao=" . $atualizacao);
exit;
// usuario de que ele devera responder a mensagem a partir da ferramenta
// Correio do TelEduc (endereco para acesso direto ao TelEduc).
$endereco = $host . $raiz_www;
$diretorio_temp = RetornaDiretorio($sock, 'ArquivosWeb');
if (!ExisteArquivo($diretorio_temp . "/tmp/" . $cod_curso)) {
CriaDiretorio($diretorio_temp . "/tmp/" . $cod_curso);
}
$dir_temp = $diretorio_temp . "/correio_" . $cod_curso . "_comp_" . $cod_usuario;
$dir_temp_msg = $diretorio_temp . "/tmp/" . $cod_curso . "/extmsg";
}
Desconectar($sock);
$sock = Conectar($cod_curso);
ExpulsaVisitante($sock, $cod_curso, $cod_usuario, true);
$userFormador = EFormador($sock, $cod_curso, $cod_usuario);
$data = time();
$codMsg = RetornaProximoCodigo($sock, "Correio_mensagens");
$dirArq = $diretorio_arq . "/" . $cod_curso . "/correio/" . $codMsg;
$msgCorpo = VerificaStringQuery($msgCorpo);
$assunto = VerificaStringQuery($assunto);
InsereMsgCM($sock, $codMsg, $cod_usuario, $assunto, $data, $msgCorpo, $codMsgAnt);
$todosUsuarios = RetornaDadosTodosUsuarios($sock, $cod_curso);
$contDest = 0;
$destsCorreio;
if ($chkF) {
$numF = count($chkF);
foreach ($chkF as $inf) {
$user = RetornaDadosUsuario($sock, $inf, $cod_curso);
$destsCorreio[$contDest]['nome'] = $user['nome'];
$destsCorreio[$contDest]['mail'] = $user['email'];
$destsCorreio[$contDest]['cod_usuario'] = $inf;
$listaCod[$contDest]['codDestino'] = $inf;
