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



#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: Administración de columnas - Modificación");
#PARAMETROS MENU
&menu(3,0);
&defineButtonJs();
  &tituloContenido("Sección NO HABILITADA ");
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)
     {
     // DESHABILITADO
     }
   if (tarea == 4)
     {
     document.informacion.action="$rutacgi/columnaConsultaFrm.pl";
     }
   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>


<h4> Por cuestiones de derechos de autor, esta sección no será habilitada.<br>
Si existe algún tipo de error, le sugerimos<br>
<ul> 
 <li> Dar de baja la versión actual de la columna y </li>
 <li> volver a registrarla.</li>
</ul> 
<br>
<center>Gracias !</center>
pagina
;
#CONTENIDO DE LA PAGINA


&cierrePagina;
