Entonces leyendo por Internet leí que con el onchange() tengo que hacerlo con JavaScript, por lo tanto tengo las siguientes preguntas:
1.- ¿Hay una forma de hacer que funcione el onchange() utilizando Perl? ¿cómo es?
2.- No sé de JavaScript con Perl, en el código (que está más abajo) ¿estoy colocándolo bien? Lo hice de dos formas; una que vi con el cgi y otra colocando entre <script> </script> el código. ¿Cuál de las dos formas es la correcta?
3.- Es con respecto al código de JavaScript, cuando hago el return ¿a dónde me devuelve eso?
Una vez más, gracias por la ayuda que me puedan dar.
Using perl Syntax Highlighting
- #!/usr/bin/perl
- binmode STDOUT, ":encoding(ISO-8859-1)";
- use CGI;
- use CGI::Carp qw(fatalsToBrowser);
- use Mod_dir::buscar;
- #use strict;
- #use warnings;
- print error;
- <script type="text/javascript" language="javascript">
- function jsopt(institucion){
- document.getElementById("institucion").innerHTML;
- return;
- }
- </script>
- my $inst=buscar->new;
- my @ins=@{$inst->llamar_inst};
- my $sed=buscar->new;
- my @sede=@{$sed->llamar_sede};
- my $q = new CGI;
- #print $query->start_html(-script=>[{ -type => 'text/javascript', -src => '../../getlink.js'}]);
- print $q->header;
- print $q->startform;
- print $q->p('Institucion:'.$q->popup_menu({-name=>'institucion', -values=>\@ins, -OnClick=>jsopt(this)});
- print $q->p('Sede:'.$q->popup_menu({-name=>'sede', -values=>\@sede}));
- print $q->p('Cédula:'.$q->textfield({-name=>'cedula'}));
- print $q->p('Nombre:'.$q->textfield({-name=>'nombre'}));
- print $q->p('Apellido:'.$q->textfield({-name=>'apellido'}));
- print $q->p('Email:'.$q->textfield({-name=>'email'}));
- print $q->p('Teléfono:'.$q->textfield({-name=>'tlf'}));
- print $q->p('Fax:'.$q->textfield({-name=>'fax'}));
- print $q->p('Celular:'.$q->textfield({-name=>'cel'}));
- print $q->p('Cargo:'.$q->textfield({-name=>'cargo'}));
- print $q->submit({-value=>'Guardar'});
- print $q->reset({-value=>'Borrar Formulario'})."<br>";
- #print "Institución".$query->optgroup(-name=>'Institución', -values => [$traer[0]]);
- print $q->end_form;
- #print $query->end_html();
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
