Cierto, ni Google lo sabe. Verás, mi código es:
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use DBI;
use CGI::Session;
use CGI;
use CGI::Ajax;
use CGI qw(:standard);
use CGI::Carp qw 'fatalsToBrowser warningsToBrowser';
###---Declaración de variables---###
my ........
my ........
my ........
####---START JSCRIPT--=######
my $JSCRIPT=<<EOF;
function trae_componentes(evento,subtit) {
var t_evento;
t_evento= evento;
var sub;
sub= subtit;
new Ajax.Updater('listaComp', 'reg_sel_comp_upd.cgi?sust=' + sub + '&event=' + t_evento,{method:'get'});
}
function trae_tcomp(componente.value,subtit.value,tipo_evento.value)
{
//No llego hasta aqui por lo menos
alert("Hello! I am an alert box!!");
return;
}
EOF
;
print header();
print start_html(-title=>'PRODUCTO',-script=>$JSCRIPT);
print <<"FORMULARIO";
<head>
<script type='text/JavaScript' src='/prototype.js'></script>
....
....
<body>
<form name=frmConsulta method="post" target="_blank" action="ver_consulta.cgi">
...
<tr>
<td align=right>
<font size=2 color="#000000" face="arial">
<B>EVENTO:</B></font>
</td>
<td align=left>
<select id="event" name="tipo_evento" onChange="trae_componentes(this.value,subest.value)">
<option value='vacio'>-Seleccionar-</option>
<option value='MANTTO'>MANTTO</option>
<option value='FALLA'>FALLA</option>
<option value='TODOS'>TODOS</option>
</select>
</td>
</tr>
<tr>
<td>
<font face='arial' size='2'><b>COMPONENTE:</b></font>
<div id='listaComp' style='display: inline;'>
<SELECT name='componente' onChange='trae_tcomp(this.value,subtit.value,tipo_evento.value);'>
</div>
</td>
</tr>
FORMULARIO
Sé que te resulta un poco incomodo ver el código HTML, pero estoy actualizando el proceso con código un poco longevo. Más adelante emplearé objetos Perl. Ojalá me puedas apoyar, explorer, a mostrar el
ALERT de JavaScript.
Gracias y saludos.
Publicado: 2015-04-22 11:52 @536