#!/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'};
$contador=$valores{'contador'};
$idsABorrar="";
$idsSeleccionados=0;
for ($i=1;$i<=$contador;$i++) {
  $id="id_columna$i";
  $ids=$valores{$id};
  if ($ids ne '') {
    $idsSeleccionados++;
    $idsABorrar=$idsABorrar." id_columna=$ids OR";
  }

}
$idsABorrar=substr($idsABorrar,0,length($idsABorrar)-3);
$id_columnista=$valores{'id_columnista'};


#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 Columna-Baja:eliminación");
#PARAMETROS MENU
&menu(2,0);
&defineButtonJs();
&tituloContenido("Resultado de Eliminación de Columnas");

print <<pagina
<SCRIPT LANGUAJE=JavaScript>
function envia(tarea)
  {
   if (tarea == 1)
     {
      document.informacion.action="$rutacgi/columnaAltaFrm.pl";
     }
   if (tarea == 2 )
     {
     // DESHABILITADO	
     }
   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
#############################################
if ($idsSeleccionados > 0) {
#  IMPRIMIR UNA VISUALIZACION DE LA ENCUESTA QUE SE HA DADO E ALTA

print "<b>Las siguientes columnas han sido dadas de baja:<br></b>\n";

 $manejador1=&nueva_conexion($baseDeDatos);
 $Consulta="SELECT titulo,contenido,fecha FROM columnas WHERE $idsABorrar";
 ($elementos,$rs)=&ejecuta_SQL($Consulta,$manejador1);
 print "<table border=5>\n";
 print "<tr><td>TITULO</td><td>PREGUNTA</td><td>FECHA PUBLICACION</td><td>FECHA EXPIRACION</td></tr>\n";
    while ($apuntador=$rs->fetchrow_hashref){
        $contador++;
        $id=$apuntador->{'id_columna'};
        print"<tr><td><font size=-1>$apuntador->{'titulo'}</td><td><font size=-1>".substr($apuntador->{'contenido'},0,50)."</td>\n";
        print"<td><font size=-1>$apuntador->{'fecha_ini'}</td></tr>\n";
    }
    print "</table>\n";
    $rs->finish;
    $manejador1->disconnect;

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
;

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


$Query="DELETE FROM columnas WHERE $idsABorrar";
($elementos,$rs)=&ejecuta_SQL($Query,$baseDatosDBC);
$rs->finish();
$baseDatosDBC->disconnect;
} 
else {
 print "<font color=RED><B>No se seleccionó ninguna COLUMNA para dar de baja</b></font>";
}



&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
