#!/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="weblearning";

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

#DETERMINAR VALORES INTERNOS DE CONSULTA


&encabezado($nombreReal,$nombreInstitucion,$nombreIntranet,"Web Learning: Menu Alumnos");
#PARAMETROS MENU
&menu(0,0);
&defineButtonJs();
&tituloContenido("Instrucciones");
print <<pagina
<SCRIPT LANGUAJE=JavaScript>
function envia(tarea)
  {
   if (tarea == 1)
     {document.informacion.action="$rutacgi/alumnoAltaFrm.pl";
      document.informacion.submit()
     }
   if (tarea == 2 )
     {
      document.informacion.action="$rutacgi/alumnoBajaFrm.pl";
     document.informacion.submit()
     }
   if (tarea == 3)
     {document.informacion.action="$rutacgi/alumnoModificaFrm.pl";
     document.informacion.submit()
     }
   if (tarea == 4)
     {
    // alert("esta opcion no esta disponible para usted");
      document.informacion.action="$rutacgi/alumnoVisualizaFrm.pl";
     document.informacion.submit()
     }

   //document.informacion.submit();
  }
</SCRIPT>
pagina
;
#CONTENIDO DE LA PAGINA
print <<pagina
<table>
<tr><td>&nbsp;&nbsp;</td></tr>
<tr><td>
<IMG SRC=$rutacom/imagenes/btnAgregaon.gif border=0><FONT CLASS=FontNormal>&nbsp;Permite entrar al proceso para dar de alta información en la base de datos</FONT>
</td></tr>
<tr><td>
<IMG SRC=$rutacom/imagenes/btnRemueveon.gif border=0><FONT CLASS=FontNormal>&nbsp;Permite entrar al proceso para eliminar información en la base de datos</FONT>
</td></tr>
<tr><td>
<IMG SRC=$rutacom/imagenes/btnEditaon.gif border=0><FONT CLASS=FontNormal>&nbsp;Permite entrar al proceso para modificar información en la base de datos</FONT>
</td></tr>
<tr><td>
<IMG SRC=$rutacom/imagenes/btnInfoon.gif border=0><FONT CLASS=FontNormal>&nbsp;Permite entrar al proceso para Mostrar la  información en la base de datos</FONT>
</td></tr>
</table>

pagina
;
&cierrePagina;