#!/usr/bin/perl
require "../../../librerias/rutinas.pl";
require "../../../librerias/base_datos.pl";
require "../../../librerias/seguridad.pl";
require "../../../librerias/utilerias.pl";
require "../../libIntranet/objetos.pl";
require "../../libIntranet/intranetTools.pl";
require "armazon.pl";

print "content-type:text/html \n\n";

#VALIDACION DE POST PARA SEGURIDAD Y PARSER DE INFORMACION DE LA FORMA ANTERIOR
&validaPost();
&ParseForma();

#RECUPERACION DE INFORMACION EN VARIABLES ESCALARES DEL ARREGLO VALORES RESULTADO DEL PARSER
$usuario=$valores{'usuario'};
$passwordEncriptado=$valores{'passwordEncriptado'};
$idInstitucion=$valores{'parametro'};

$id_seccion=$valores{'id_seccion'};
$id_columnista=$valores{'id_columnista'};
$titulo=$valores{'titulo'};
$contenido=$valores{'contenido'};
$fecha=$valores{'fecha'};


#CONSTANTE DEFINIDA PARA CADA INTRANET, SE DEFINE INTERNAMENTE, NO NECESITA ENVIARSE COMO PARAMETRO, SE DECLARA EN CADA ARCHIVO CGI
$intranet="columna";

#--------------------------------------------------------------
#LECTURA DE PARAMETROS DE ARCHIVO DE CONFIGURACION
($numIntranet,$nombreIntranet,$rutacom,$rutacomcgi,$ruta,$rutacgi)=&fileRead($intranet);
#---------------------------------------------------
$BaseDeDatos="programacion";
&crear_conexion_progaix();
#---------------------------------------------------
#VERIFICANDO USUARIO
($nombreReal,$nombreInstitucion,$privilegio,$baseDeDatos)=&validaUESius($usuario,$passwordEncriptado,$numIntranet,$idInstitucion);
#---------------------------------------------------	
&cerrar_conexion();
#---------------------------------------------------

#DETERMINAR VALORES INTERNOS DE CONSULTA


&encabezado($nombreReal,$nombreInstitucion,$nombreIntranet,"Columnas: Menu Administración de Columnas-Alta:inserci&oacute;n");
#PARAMETROS MENU
&menu(1,0);
&defineButtonJs();
&tituloContenido("Resultado de inserci&oacute;n de la Columna");

print <<pagina
<SCRIPT LANGUAJE=JavaScript>
function envia(tarea)
  {
   if (tarea == 1)
     {
     }
   if (tarea == 2 )
     {document.informacion.action="$rutacgi/columnaBajaFrm.pl";
     }
   if (tarea == 3)
     {
      document.informacion.action="$rutacgi/columnaModificacionFrm.pl";
     }
   if (tarea == 4)
     {
      document.informacion.action="$rutacgi/columnaConsultaFrm.pl";
     }

   document.informacion.submit();
  }
</SCRIPT>
pagina
;
#CONTENIDO DE LA PAGINA
#############################################

#CREA CONEXION A LA BASE DE DATOS DE ENCUESTAS
$baseDatosDBC=&nueva_conexion($baseDeDatos);

print <<pagina
<center>
<BR>
    <FONT FACE="ARIAL" SIZE="1"><B>LA COLUMNA SE HA DADO DE ALTA DE FORMA ADECUADA</B></FONT>
<!--IMPRIMIR UNA VISUALIZACION DE LA ENCUESTA QUE SE HA DADO E ALTA-->
<br>
<table border=5>
<tr><td>Sección:</td><td>$id_seccion</td></tr>
<tr><td>Columnista:</td><td>$id_columnista</td></tr>
<tr><td>Título:</td><td>$titulo</td></tr>
<tr><td>Columna:</td><td>$pregunta</td></tr>
<tr><td>Fecha Publicación:</td><td>$fecha</td></tr>
</table>
<br>
    <FORM ACTION="$rutacgi/admonColumnaIndex.pl" ENCTYPE="application/x-www-form-urlencoded" METHOD="POST" NAME="forma">
     <INPUT TYPE="HIDDEN" NAME="tarea" VALUE="alta">
     <INPUT TYPE="HIDDEN" NAME="usuario" VALUE=$usuario>
     <INPUT TYPE="HIDDEN" NAME="passwordEncriptado" VALUE=$passwordEncriptado>
     <INPUT TYPE="HIDDEN" NAME="parametro" VALUE=$idInstitucion>
     <INPUT TYPE="SUBMIT" VALUE="ACEPTAR">
    </FORM>
pagina
;


$Query="insert into columnas VALUES(0,'$titulo','$contenido','$fecha',$id_columnista,$id_seccion)";
($elementos,$rs)=&ejecuta_SQL($Query,$baseDatosDBC);
$rs->finish();
$baseDatosDBC->disconnect;

#$SQL=$SQL1 . $SQL2 . $SQL3;
#($encontrados,$sth_1)=&do_SQL;
#$rs->finish();



&cierrePagina;
#CREACION DE UNA NUEVA CONECCION A BASE DE DATOS Y RECUPERACION DE RECURSOS
#$recursos=&nueva_conexion($baseDeDatos);

#EJECUCION DE LA CONSULTA
#$consulta="insert * from rubros order by etiquetas";
#($elementos,$sr)=&ejecuta_SQL($consulta,$recursos);

#RECUPERACION DE INFORMACION DEL RECORDSET
