#!/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="intranet";
&crear_conexion();
#---------------------------------------------------
#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(3,0);
&defineButtonJs();
&tituloContenido("Instrucciones: Seleccione, el tipo de ordenamiento");

print <<pagina

<SCRIPT LANGUAJE=JavaScript>
function envia(tarea)
  {
   if (tarea == 1)
     {alert("esta opcion no esta disponible para usted");
     document.informacion.action="$rutacgi/ordenDocAltaFrm.pl";
     }
   if (tarea == 2 )
     {alert("esta opcion no esta disponible para usted");
      document.informacion.action="$rutacgi/fotograficoBajaIndex.pl";
     }
   if (tarea == 3)
     {document.informacion.action="$rutacgi/ordenDocAltaFrm.pl";
     document.informacion.submit()
     }
   if (tarea == 4)
     { alert("esta opcion no esta disponible para usted");
      document.informacion.action="$rutacgi/fotograficVisualizaIndex.pl";
     }

   //document.informacion.submit();
  }

function uno_arriba(forma2,indice)
{if (indice > 0)
   {cadena_temporal=forma2.ordena.options[indice-1].text;
    forma2.ordena.options[indice-1].text=forma2.ordena.options[indice].text;
    forma2.ordena.options[indice].text=cadena_temporal;
    forma2.ordena.selectedIndex=indice-1;
   }
}

function uno_abajo(forma2,indice)
{tam=forma2.ordena.length;
 tam--;
 if (indice < tam)
   {cadena_temporal=forma2.ordena.options[indice+1].text;
    forma2.ordena.options[indice+1].text=forma2.ordena.options[indice].text;
    forma2.ordena.options[indice].text=cadena_temporal;
    forma2.ordena.selectedIndex=indice+1;
   }
}

function al_inicio(forma2,indice)
{if (indice >0)
  {for (var i=indice; i>0 ; i--)
     {cadena_temporal=forma2.ordena.options[i-1].text;
      forma2.ordena.options[i-1].text=forma2.ordena.options[i].text;
      forma2.ordena.options[i].text=cadena_temporal;
     }
   forma2.ordena.selectedIndex=0;
  }
}

function al_final(forma2,indice)
{elementos=forma2.ordena.length;
 elementos--;
 if (indice < elementos)
   {for (var i=indice; i<elementos ; i++)
     {cadena_temporal=forma2.ordena.options[i+1].text;
      forma2.ordena.options[i+1].text=forma2.ordena.options[i].text;
      forma2.ordena.options[i].text=cadena_temporal;
     }
    forma2.ordena.selectedIndex=elementos;
   }
}

function prepara_env(forma2)
{
 if (confirm ('Realizar cambios en la Página principal?'))
 {
   elementos=forma2.ordena.length;
   for (var i=0; i<elementos ; i++)
   {forma2.ordena.options[i].selected=true;
    forma2.ordena.options[i].value=forma2.ordena.options[i].text;
   }
    document.forma2.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>
pagina
;
#QUERY OBTIENE ETIQUETAS DE LA BASE DE DATOS EN ORDEN POR PRIORIDAD
$manejador1=&nueva_conexion($baseDeDatos);
$Consulta="select * from rubros order by prioridad";
($elementos,$rs)=&ejecuta_SQL($Consulta,$manejador1);
$count=1;
$campo='etiqueta';
while ($apuntador=$rs->fetchrow_hashref){
  if ($count == 1){
     print "<option value=$count selected>$apuntador->{$campo}\n";
     }#END IF
   else{
     print "<option value=$count> $apuntador->{$campo}\n";
     }#END ELSE
   $count++;
  }
$rs->finish;
$manejador1->disconnect;
print <<pagina
 </SELECT>
    <!-- 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=forma2 ACTION=$rutacgi/ordenRubroenHP.pl METHOD=POST>
<CENTER><TABLE  border=0 width=250>

<FONT FACE=VERDANA,ARIAL,HELVETICA SIZE=1 COLOR=000000><b>Orden de Rubros en HomePage</b></FONT><BR>
<tr><TD width=150 valign=top>
<SELECT NAME=ordena  CLASS=CajaGrove SIZE=10 MULTIPLE>
pagina
;
#QUERY OBTIENE ETIQUETAS DE LA BASE DE DATOS EN ORDEN POR PRIORIDAD
$manejador1=&nueva_conexion($baseDeDatos);
$Consulta="select * from rubros order by prioridad";
($elementos,$rs)=&ejecuta_SQL($Consulta,$manejador1);
$count=1;
$campo='etiqueta';
while ($apuntador=$rs->fetchrow_hashref){
  if ($count == 1){
     print "<option value=$count selected>$apuntador->{$campo}\n";
     }#END IF
   else{
     print "<option value=$count> $apuntador->{$campo}\n";
     }#END ELSE
   $count++;
  }
$rs->finish;
$manejador1->disconnect;
print <<pagina
 </SELECT>

 <INPUT TYPE=HIDDEN NAME=tipo value=0>
</TD>
<TD valign=top>
 <center><img SRC="$ruta/imagenes/barra.gif" height="156" width="49" usemap="#barra" 
border=0></center>
 <map name="barra">
<area shape="rect" coords="2,7,46,41" href\"a" onclick="al_inicio(forma2,forma2.ordena.selectedIndex); return false;">
<area shape="rect" coords="3,44,46,74" href="a" onclick="uno_arriba(forma2,ordena.selectedIndex); return false;">
<area shape="rect" coords="4,79,46,110" href="a" onclick="uno_abajo(forma2,ordena.selectedIndex); return false;">
<area shape="rect" coords="4,114,46,147" href="a" onclick="al_final(forma2,forma2.ordena.selectedIndex); return false;">
<area shape="default" nohref>
</map>
</TD>
 </TR>
 </TABLE>
</CENTER><FONT FACE=arial,helvetica size=1 color=000000>DIA</FONT>&nbsp;
 <SELECT NAME=dia CLASS=CajaGrove>
pagina
;
($diaMod,$mesMod,$anioMod)=&dar_fecha();
for ($i=1;$i<=31;$i++)
  {
   if ($i == $diaMod)
     {print "<OPTION VALUE=$i SELECTED>$i</OPTION>";}
   else
     {print "<OPTION VALUE=$i>$i</OPTION>";}
  }
print <<pagina
 </SELECT><FONT FACE=arial,helvetica size=1 color=000000>MES</FONT>&nbsp;
 <SELECT NAME=mes CLASS=CajaGrove>
pagina
;
for ($i=1;$i<=12;$i++)
  {
   if ($i == $mesMod)
     {print "<OPTION VALUE=$i SELECTED>$i</OPTION>";}
   else
     {print "<OPTION VALUE=$i>$i</OPTION>";} 
  } 
print <<pagina
 </SELECT><FONT FACE=arial,helvetica size=1 color=000000>AÑO</FONT>&nbsp;
 <SELECT NAME=anio CLASS=CajaGrove>
pagina
;
for ($i=2002;$i<=2006;$i++)
  {
   if ($i == $anioMod)
     {print "<OPTION VALUE=$i SELECTED>$i</OPTION>";}
   else
     {print "<OPTION VALUE=$i>$i</OPTION>";}
  }
print <<pagina
 </SELECT><BR>&nbsp;<BR>
 <INPUT TYPE=BUTTON NAME=modificar VALUE=Modificar ONCLICK=prepara_env(forma2); 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;