Foro - Perl en Español

Hola, Perleros de todo el mundo.

Tengo un programa en el que mis usuarios seleccionan de 3 scrolling_lists los campos siguientes de una aplicación:



Basándome en los dos primeros (Carrera y Grado), yo necesito desplegar en la misma pantalla, las Materias relativas a ese par de argumentos, esto es algo como:

Select materia from materias where carrera='$carrera' and grado='$grado' order by materia

El resultado debería ser un cuarto scrolling_list en el cual se muestren las Materias de esa Carrera y de ese Grado unicamente.

Actualmente el proceso lo tengo dividido en dos pantallas. En la primera pido Carrera y Grado, le doy Submit y en la segunda ya proceso mi query con los dos argumentos recibidos, pero lo quiero optimizar en un solo paso.

¿Alguien tiene algún ejemplo de algo parecido a esto?, pues en la Web solo he hallado ejemplos muy sencillos en los cuales se captura un campo de entrada y con este se hacen varias cosas, pero no he podido encontrar algo ni remotamente parecido a lo que busco.

Estoy utilizando o tratando mejor dicho, el módulo CGI::Ajax.

Ojalá alguien pueda ayudarme en este problemita.

Gracias desde Guadalajara, México.

explorer: muchas gracias por tu ayuda. Eso es lo que andaba buscando; ya lo probé y funciona de maravilla. Ahora déjame adaptarlo a un tercer scrolling_list y luego te platico cómo me fue.

Este fin de semana trabajaré duro en esta tarea y me tomaré 2 o 3 tequilas a tu salud.

Recibe un gran saludo desde Guadalajara, México.

Estimados amigos:

Llevo varios días tratando de implementar Ajax en un script de Perl y no he tenido éxito.

El asunto es este:

En la primera pantalla, pido un Código de Alumno, el cual después de ser tecleado, me sirve para obtener el Nivel (Carrera) y el Grado del Alumno del archivo de Alumnos.

Los datos son obtenidos con éxito y los despliego, así como sus referencias y sus des-referencias y todo se ve bien.

Con estos dos campos, voy a leer del archivo Materias, las materias que corresponden a ese Nivel y Grado, para que el usuario seleccione una, que se pasará al siguiente script.

Mas sin embargo, estos campos ($nivel, $grado y $grupo) los intento pasar a la rutina que muestra el HTML y pues no he podido.

Este script me sirve para la captura de faltas por alumno de cada una de las materias que cursa.

Aquí pego el código del script capt_faltas.pl

Quiero aclarar que el campo CGISESSID, que viene como parámetro de un paso atrás, sí me lo envía al paso siguiente, pero los campos que obtengo en una subrutina de la base de datos, no.

Yo ya estoy ciclado en el problema y no le veo solución alguna, ojalá alguien con mente más fresca me pueda ayudar a encontrar el(los) error(es).

Gracias de antemano.

Ten en cuenta una cosa: las líneas 90 a 92 no las puede rellenar Perl, porque... Show_HTML es llamada solo cuando se llama por primera vez al CGI (la primera vez o cada vez que recargamos la página), y en esos momentos, Perl no sabe los valores de esas variables (son inicializadas dentro de la subrutina perl_func(), que solo es llamada desde el código JavaScript de la página HTML).

Así que mientras esté funcionando el proceso Ajax, el intercambio de información entre el programa Perl y la página HTML es a través del js_func(), llamando a perl_func(), y devolviendo el resultado solo en el campo 'mate'.

Lo que puedes hacer es declarar js_func() para que guarde los resultado devueltos por perl_func() en varios <div>. Y en perl_func, devolver varios valores escalares con los resultados.

Algo así (no probado):

En el código HTML:


En el código Perl:

De esta manera, en cada invocación Ajax, el navegador recibe cuatro valores y los coloca cada uno en su elemento correspondiente.

Ahora bien... estás obteniendo los resultados en tres <div>... y seguro que no quieres eso... lo querrás seguir teniendo en tres campos <input>, para enviarlos con el formulario cuando el usuario pulse Continuar.

Solución: En perl_func() crea el código HTML que contenga esos valores.



Ahora, lo que estamos generando en cada Ajax, es el enlace Continuar, con los valores reales de $nivel, $grupo y $grado.

Pero (esto no ha terminado): un enlace <a> no se "lleva" los valores de un formulario consigo mismo, así que el valor del <select> se pierde. Es mejor que el enlace Continuar se convierta en un <input type="submit">, y la URL generada por perl_func(), sea el 'action' en el <form>.

Ale, a trabajar...