echo " </tr>\n";
echo " <tr>\n";
echo " <td>\n";
echo " <form name=\"form_lingua\" id=\"form_lingua\" action=\"\" method=\"post\">\n";
echo " <table cellspacing=\"0\" class=\"tabInterna\">\n";
echo " <tr class=\"head\">\n";
/* Selecionar Idioma */
echo " <td>" . RetornaFraseDaLista($lista_frases_configurar, 3) . "</td>\n";
echo " </tr>\n";
echo " <tr class=\"tabInterna\">\n";
echo " <td class=\"alLeft\">\n";
echo " <input type=\"hidden\" name=\"cod_usuario\" value=\"" . $cod_usuario . "\" />\n";
// 18 - Selecione a l�ngua em que deseja visualizar o ambiente:
echo " <p> " . RetornaFraseDaLista($lista_frases_configurar, 18) . " \n";
echo " <select class=\"input\" name=\"cod_lin\" onchange=\"xajax_AtualizaIdiomaDinamic(xajax.getFormValues('form_lingua'));\">\n";
$cod_lingua_usuario = RetornaCodLinguaUsuario($sock, $cod_usuario);
foreach ($lista as $cod_lin => $lingua) {
$sel = "";
if ($cod_lin == $cod_lingua_usuario) {
$sel = "selected=\"selected\"";
}
echo " <option " . $sel . " value=\"" . $cod_lin . "\">" . $lingua . "</option>\n";
}
echo " </select>\n";
echo " </p>\n";
echo " </td>\n";
echo " </tr>\n";
echo " </table>\n";
echo " </form>\n";
echo " </td>\n";
echo " </tr>\n";
http://www.nied.unicamp.br
nied@unicamp.br
------------------------------------------------------------------------------
-->
*/
/*==========================================================
ARQUIVO : pagina_inicial/topo_tela_inicial.php
========================================================== */
$sock = Conectar("");
if (isset($cod_lin)) {
MudancaDeLingua($sock, $cod_lin);
} else {
if (!empty($_SESSION['login_usuario_s'])) {
$cod_lin = RetornaCodLinguaUsuario($sock, $_SESSION['cod_usuario_global_s']);
MudancaDeLingua($sock, $cod_lin);
}
}
/*$abv_lingua variavel utilizada para determinar o atributo lang do HTML*/
$abv_lingua = AbreviaturaLingua($cod_lin);
$lista_frases = RetornaListaDeFrases($sock, -3);
$lista_frases_geral = RetornaListaDeFrases($sock, -1);
$lista_frases_configurar = RetornaListaDeFrases($sock, -7);
$query = "select diretorio from Diretorio where item='raiz_www'";
$res = Enviar($sock, $query);
$linha = RetornaLinha($res);
$tela_raiz_www = $linha[0];
$query = "select valor from Config where item = 'host'";
$res = Enviar($sock, $query);
$linha = RetornaLinha($res);
