#!/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: Ordena documentos en HomePage por Prioridad");
#PARAMETROS MENU
&menu(3,0);
&defineButtonJs();
&tituloContenido("Instrucciones:");

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 invierte(forma)
{ if (forma.home.value=="n")
  {
    document.luz.src="$ruta/imagenes/indio_on.gif";
    forma.home.value="s";
  }
 else
  {
   document.luz.src="$ruta/imagenes/indio_off.gif";
    forma.home.value="n";
  }

}

function envia_datos(forma)
{if (forma.titulo.value=='')
  { alert("Es necesario escribir un titulo para el documento");
   forma.titulo.focus();
  }
 else
 if (forma.sintesis.value=='')
  { alert("Es necesario escribir una síntesis para el documento");
    forma.sintesis.focus();
  }
 else
  if (forma.contenido.value=='')
   { alert("Es necesario escribir el contenido del documento");
     forma.contenido.focus();
   }
 else
  { forma.submit();
  }
}

//########################## java script ###########################
function uno_arriba(forma,indice)
{if (indice > 0)
   {cadena_temporal=forma.ordena.options[indice-1].text;
    forma.ordena.options[indice-1].text=forma.ordena.options[indice].text;
    forma.ordena.options[indice].text=cadena_temporal; 
    forma.ordena.selectedIndex=indice-1;
   }
}

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

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

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

function prepara_env(forma)
{
 if (confirm ('Realizar cambios en la Página principal?')) 
 {
   elementos=forma.ordena.length;
   for (var i=0; i<elementos ; i++)
   {forma.ordena.options[i].selected=true;
    forma.ordena.options[i].value=forma.ordena.options[i].text;
   }
    forma.submit();
 }
}
</script>

<!-- ############################# FORM ############################# -->
<!-- FORM ACTION=$rutacgi/ordenaDoctoenBD.pl NAME=forma METHOD=POST --> 
<FORM NAME=forma>
<BR>
<CENTER>
<B><FONT SIZE=3 FACE=ARIAL> ORDEN  MODIFICADO<br></FONT></B>

<table border=0 width=200>
<TR><TD>
pagina
;

#read(STDIN,$datos,$ENV{"CONTENT_LENGTH"});
#@campos = split(/&/,$datos);
$lugar=0;
$manejador1=&nueva_conexion($baseDeDatos);

foreach $elemento (@campos) 
  {($variable, $valor) = split(/=/,$elemento);
   $valor = &UnescapeString($valor);
   $variable= &UnescapeString($variable);
   $Consulta="update rubros SET prioridad=$lugar where etiqueta='$valor'";
($elementos,$rs)=&ejecuta_SQL($Consulta,$manejador1);
   if($valor ne "0" && $variable ne "usuario" && $variable ne "passwordEncriptado")
{   print "<BR>$valor\n";}
   $lugar++;
  }
print "</TD></TR></TABLE>";


$rs->finish;
$manejador1->disconnect;

print "</FORM>\n";

&cierrePagina;