#!/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'};
$accion=$valores{'accion'};
$fecha_ini=$valores{'fecha_ini'};
$fecha_fin=$valores{'fecha_fin'};
$id_columnista=$valores{'id_columnista'};
$id_seccion=$valores{'id_seccion'};



#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,"Encuestas: Administración de encuestas - Consulta");
#PARAMETROS MENU
&menu(4,0);
&defineButtonJs();
  &tituloContenido("Consulta de Encuestas");
print <<pagina
<SCRIPT LANGUAGE=JavaScript>
function envia(tarea)
  {
   if (tarea == 1)
     {
     document.informacion.action="$rutacgi/columnaAltaFrm.pl";
     }
   if (tarea == 2 )
     {
     document.informacion.action="$rutacgi/columnaBajaFrm.pl";
     }
   if (tarea == 3)
     {
     document.informacion.action="$rutacgi/columnaModificacionFrm.pl";
     }
   if (tarea == 4)
     {
     // DESHABILITADO
     }
   document.informacion.submit();
}
</SCRIPT>
<script type="text/javascript" src="http://wdb.sicomnet.edu.mx/librerias/js/calendar.js"></script>
<script type="text/javascript" src="http://wdb.sicomnet.edu.mx/librerias/js/calendario.js"></script>
pagina
;
#CONTENIDO DE LA PAGINA
$manejador1=&nueva_conexion($baseDeDatos);

if ($accion eq '') {
print <<pagina
<br>
<table border=0>
   <form method=post action=$rutacgi/columnaConsultaFrm.pl>
   <input type=hidden name=usuario value=$usuario>
   <input type=hidden name=passwordEncriptado value=$passwordEncriptado>
   <input type=hidden name=parametro value=$idInstitucion>

  <tr><td>Buscar a partir de esta fecha:</td><td><input type=text name=fecha_ini size=10 id=publicacion><input type=button value=" ... " onclick="return showCalendar('publicacion', 'y-m-d');"></td></tr>
   <tr><td>Hasta esta fecha:</td><td><input type=text name=fecha_fin size=10 id=expiracion><input type=button value=" ... " onclick="return showCalendar('expiracion', 'y-m-d');"></td></tr>
   <tr><td>Sección del Portal:</td><td><select  name=id_seccion size=1>
pagina
;
  $QueryRubros="SELECT idRubro,etiqueta FROM rubros ORDER BY idRubro";
  ($numRubros,$rsRubros)=&ejecuta_SQL($QueryRubros,$manejador1);
  while ($apuntador=$rsRubros->fetchrow_hashref) {
   print "<Option Value=".$apuntador->{'idRubro'}.">".$apuntador->{'etiqueta'}."</Option>\n";
  }
  $rsRubros->finish;

print <<pagina
    </select>
  <input type=hidden name=accion value=lista>
</td></tr>
<tr><td colspan=2><center><input type=submit value=Buscar></td></tr>
 </form>
pagina
;
  }
  else {
   if ($accion eq 'lista') {
    $Consulta="SELECT id_columna,titulo,contenido,fecha,nombre,apaterno FROM columnas,columnistas WHERE columnas.id_columnista=columnistas.id_columnista AND id_seccion=$id_seccion AND (fecha BETWEEN '$fecha_ini' AND '$fecha_fin')";
    ($elementos,$rs)=&ejecuta_SQL($Consulta,$manejador1);
    if ($elementos>0) {
print <<pagina
    <BR> 
    <table border=1 cellspacing=2>
    <tr><td>TITULO</td><td>CONTENIDO</td><td>FECHA</td><td>COLUMNISTA</td></tr>
pagina
;
    while ($apuntador=$rs->fetchrow_hashref) {
        $id=$apuntador->{'id_encuesta'};
print <<pagina
         <TR><td>$apuntador->{'titulo'}</td><td>$apuntador->{'contenido'}</td>
         <td>$apuntador->{'fecha'}</td><td>$apuntador->{'nombre'} $apuntador->{'apaterno'}</td>
         </TR>
pagina
;
    } # Fin del while
    $rs->finish;

    print " </table>";
   } #Fin del IF (elementos)
   else {
print <<pagina
     <BR>
     <B>No existe Registro de Columnas registradas dentro de esas fechas</b>
pagina
;
        }
print <<pagina
    <center>
    <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
;



   } #Fin del IF (lista)
  }  #Fin del ELSE


&cierrePagina;
$manejador1->disconnect;
