ajax en perl estoy tratando de hacer mantencion a un sistema echo en perl con ajax. que la verdad no tengo mucha experiencia. he avanzado un poco en entender, pero ahora me encuentro con una llamada a un javascrit que nuevamente no encuentro su definicion. este es el codigo:
Código HTML:
use CGI::Ajax;
use HTMLTMPL;
use CGI qw/:standard/;
use SIB::GeneralCgi;
# Create the template object and load it.
$IdNivelAcceso = $datos->{session}->{id_nivel_acceso};
my ($array, $hash, $scalar)=$datos->perfil_usuario_listview($IdNivelAcceso, 0, '(Todos)');
my $cmb = popup_menu(-name=>'cmbPerfil', -id=>'cmbPerfil', -title=>'Lista desplegable que permite realizar la búsqueda por algún perfil particular', -style=>'width: 300px; background-color: #ffffff; font-weight: bold; color: darkblue;', -values=>$array, -labels=>$hash);
$templ = new HTMLTMPL;
$templ->src($ini->get(['ARCHIVO', 'TPL']).'\mantenedores\usuario_listview.html');
$templ->txtBuscar(textfield(-name=>'txtBuscar', -id=>'txtBuscar', -size=>30, -maxlength=>30, -override=>1, -title=>'Caja de texto que permite realizar la búsqueda por un usuario en particular'));
$templ->cmbPerfil($cmb);
$templ->btnBuscar(button(-name=>'btnBuscar', -class=>"boton6", -value=>'Buscar', -title=>'Botón que realiza la búsqueda', -onclick=>"javascript:fxCargaUsuarios(['txtBuscar', 'cmbPerfil', 'cgi_edit', 'NO_CACHE'], ['usuario_listview'])"));
my $cgi = new CGI;
my $pjx = new CGI::Ajax( 'fxCargaUsuarios' => \&fxCargaUsuarios,
'fxCargaPermisos' => \&fxCargaPermisos);
print $pjx->build_html( $cgi, $templ->htmlString);
la funcion js que hago mension es
onclick=>"javascript:fxCargaUsuarios(['txtBuscar', 'cmbPerfil', 'cgi_edit', 'NO_CACHE'], ['usuario_listview'])")
Gracias por la ayuda
