Foro - Perl en Español

Hola,

El problema es el siguiente: utilizo una subrutina de Ajax para mostrar los resultados de una consulta, hasta aquí no hay ningún problema, pero necesito implementar dentro de esta subrutina otra para eliminar un registro, pero no funciona y no sé cómo hacer la implementación del nuevo objeto cgi.

Este es el código de la implementación.

#implementación
my ($cgi) = new CGI;
my ($pjx) = new CGI::Ajax( 'consultaUsuarios' => \&consultaUsuarios);
my ($pjx2) = new CGI::Ajax( 'eliminarUsuario' => \&eliminaUsuario);

# Desplegamos el HTML
print $pjx->build_html( $cgi, \&mostrarPagina );


De antemano, muchas Gracias

Bienvenido a los foros de Perl en español, calcifer1990.

¿No podrías llamar a eliminaUsuario() desde dentro de consultaUsuarios()?

De todas maneras, el código que muestras es la definición de dos subrutinas independientes, que se dispararán por dos métodos javascript distintos ('consultaUsuarios' y 'eliminarUsuario').

Desde el código JavaScript podrías disparar 'eliminarUsuario' si se da alguna condición después de ejecutar 'consultaUsuarios'.

O como he dicho antes, desde dentro de la ejecución de consultaUsuarios(), en Perl, si un registro cumple la condición, eliminarle directamente, antes de devolver el HTML al usuario.

Hola, explorer.

La verdad, no te entiendo muy bien, así que te voy a explicar más detalladamente el problema.

Tengo un script inicial en el cual por medio de un filtro muestro los datos de los usuarios; para mostrar los resultados del filtro en la parte inferior del script utilizo una subrutina.

my ($pjx) = new CGI::Ajax( 'consultaUsuarios' => \&consultaUsuarios);

Al cargar los usuariosconsultados en esta subrutina tengo un botón que me permite "eliminar" el usuario de la base de datos.

Lo hago por medio de otra subrutina, pero no sé cómo desplegar esta ya que no funciona. Al mirar los errores del JavaScript dice que la función eliminarUsuario,

my ($pjx2) = new CGI::Ajax( 'eliminarUsuario' => \&eliminaUsuario);

Prueba con esto:



(sacado del ejemplo pjx_chained.pl, en la carpeta scripts/)

Hola explorer,

Muchas gracias por contestar. Adicioné el código que me dijiste pero ocurre el siguiente error.

Problem with code: Undefined subroutine &main::eliminaCliente called at c:/Perl/site/lib/CGI/Ajax.pm line 1145.

Ya esta corregido el error. Simplemente fue un error de distracción y escribí de forma diferente el nombre de la subrutina.

Te lo agradezco mucho, explorer.