#!/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'};

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

#--------------------------------------------------------------
#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);
#---------------------------------------------------	
$sth->finish;
&cerrar_conexion();
#---------------------------------------------------

#DETERMINAR VALORES INTERNOS DE CONSULTA


&encabezado($nombreReal,$nombreInstitucion,$nombreIntranet,"Comunicación: Orden de Documentos");
#PARAMETROS MENU
&menu(1,0);
&defineButtonJs();
&tituloContenido("Instrucciones: Seleccione, que quiere ordenar");

print <<pagina

<SCRIPT LANGUAJE=JavaScript>
function envia(tarea)
  {
   if (tarea == 1)
     {document.informacion.action="$rutacgi/informacionAltaFrm.pl";
      alert (document.informacion.action);
      document.informacion.submit()
     }
   if (tarea == 2 )
     {document.informacion.action="http://$rutacgi/alta.pl";
     }
   if (tarea == 3)
     {document.informacion.action="http://$rutacgi/autorBusquedaFrm.pl";
     }
   if (tarea == 4)
   {document.informacion.action="http://$rutacgi/autorBusquedaFrm.pl";
     }

   //document.informacion.submit();
  }

</SCRIPT>
<br>&nbsp;&nbsp;
<center>
<table>
<tr><td><FONT FACE=VERDANA,ARIAL,HELVETICA SIZE=2 COLOR=000000><B>Orden del Documento en HomePage</B></FONT></td></tr>
<tr><td>
<FORM NAME=forma ACTION=$rutacgi/ordenaDoctoenHP.pl METHOD=POST>
  <FONT FACE=VERDANA,ARIAL,HELVETICA SIZE=1 COLOR=000000><B>Seleccione el tipo de Documento</B></FONT><BR>
   <SELECT NAME="tipo" CLASS=CajaGrove SINGLE>
    <OPTION value=1 SELECTED >Nacional
   <OPTION value=2 >Internacional
   <OPTION value=3 >Poblanos en NY
   <OPTION value=4 >Deportes
   <OPTION value=5 >Espectaculos
   <OPTION value=6 >Cultura y sociedad
   <OPTION value=7 >Turismo
   <OPTION VALUE=8 >Empresarial, Negocios, Laboral
   <OPTION value=9 >Gobierno
   <OPTION value=10 >Seguridad publica
 </SELECT>
  <input type="submit" value="Enviar Tipo" class=BotonBlanco> &nbsp;&nbsp;
  <INPUT TYPE=HIDDEN NAME=usuario  VALUE=$usuario>
  <INPUT TYPE=HIDDEN NAME=passwordEncriptado VALUE=$passwordEncriptado>
  <INPUT TYPE=HIDDEN NAME=parametro VALUE="$idInstitucion">
  </FORM>
 <br>&nbsp;<br>&nbsp;
</td></tr>
<tr><td><FONT FACE=VERDANA,ARIAL,HELVETICA SIZE=2 COLOR=000000><b>Modifica la Prioridad de los encabezados en HomePage</b></FONT>
</td></tr>
<tr><td>
<FORM NAME=forma ACTION=$rutacgi/ordenRubroenHP.pl METHOD=POST>
<FONT FACE=VERDANA,ARIAL,HELVETICA SIZE=1 COLOR=000000><b>Orden de Rubros en HomePage</b></FONT><BR>
       <SELECT NAME=rubro CLASS=CajaGrove size=5 multiple>
   <OPTION value=1 SELECTED >Nacional
   <OPTION value=2 >Internacional
   <OPTION value=3 >Poblanos en NY
   <OPTION value=4 >Deportes
   <OPTION value=5 >Espectaculos
   <OPTION value=6 >Cultura y sociedad
   <OPTION value=7 >Turismo
   <OPTION VALUE=8 >Empresarial, Negocios, Laboral
   <OPTION value=9 >Gobierno
   <OPTION value=10 >Seguridad publica
   </SELECT>
<input type="submit" value="Enviar Rubro" class=BotonBlanco> &nbsp;&nbsp;
<INPUT TYPE=HIDDEN NAME=usuario  VALUE=$usuario>
  <INPUT TYPE=HIDDEN NAME=passwordEncriptado VALUE=$passwordEncriptado>
  <INPUT TYPE=HIDDEN NAME=parametro VALUE="$idInstitucion">
       </FORM>
</td></tr>
</table>
</center>
pagina
;
&cierrePagina;