Ver Tema

thegame · 2011-11-30 10:40 @486

Hola, tengo un formulario hecho con CGI y hay 2 popup_menu pero quiero que cuando haga clic en uno, tome ese valor para poder mostrar en el otro popup_menu muestre los valores de acuerdo a lo que yo elegí en el primero.

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.

Syntax: [ Download ] [ Hide ]

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();
 

explorer · 2011-11-30 11:23 @516

A ver... hay que tener algunos conceptos claros...

El JavaScript se ejecuta en el cliente, así que no se puede ejecutar en el CGI, que está en el lado del servidor. Entonces, no se puede ejecutar ningún evento JavaScript desde Perl. Hay que saber dónde se está ejecutando qué código en qué momento y en qué lugar.

El return del JavaScript devuelve al control al punto del código JavaScript dentro del código HTML que lo llamó.

Ese código debe viajar con el resto del código HTML que el programa Perl envía al cliente. Como la generación del código HTML lo estás haciendo con el módulo CGI, hay que usar sus funciones para agregar el código JavaScript, que, normalmente, irá en la sección <head>.

Según el manual de CGI, para poder enviar un <head> personalizado hay que hacer algo como esto (sacado del manual y ajustado a tu código):

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $codigo_javascript = <<EOC
function jsopt(institucion){
   document.getElementById("institucion").innerHTML;
   return;
}
EOC

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print $q->start_html(
    -title  => 'Prueba con Select',
    -script => $codigo_javascript,
);

Como ves, hay que iniciar el HTML, pero indicando que vamos a usar un trozo de código en JavaScript. El módulo CGI se ocupará de colocarlo en su sitio, en la cabecera (más información en la sección CREATING THE HTML DOCUMENT HEADER).

Luego está el tema de que, cada vez que el usuario hace una elección, la página se redibuja (es una petición HTTP completa), por lo que el CGI debe redibujar toda la página, y recordar el estado de los controles de los formularios, en cada petición.

Otra opción es usar la técnica de Ajax. En estos mismos foros tienes un hilo y ejemplo completo sobre el tema.

thegame · 2011-12-01 08:32 @397

¡Ah, ok! Gracias por la respuesta. Otra cosa era que quería colocarle CSS al formulario hecho con CGI, entonces investigando en perldoc-cgi leí que en el start_html coloco la dirección del archivo de CSS y luego para colocar el CCS en alguna parte de la página lo agrego con la etiqueta class. ¿Es correcto?

Yo intenté algo así:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print start_html(-title=>'Titulo',-style=>{'src'=>'/archivo.css'})
.
.
.
.
print $q->p('Nombre:'.$q->textfield({-class=>'ejemplocss',-name=>'nombre'}));
 

¿Está bien así? Porque no me hace los cambios al meter el CSS...

explorer · 2011-12-01 11:53 @537

Pues yo lo veo bien... Te falta solo poner algo de texto en el campo de texto, pero... está bien...

Bueno... no... usas start_html() de forma directa, y luego usas el objeto $q... deberías usar solo un método...

¿El servidor web dice que ha servido el fichero .css al cliente?

thegame · 2011-12-05 09:26 @434

Disculpa, explorer, no entendí la pregunta que me hiciste. ¿Puedes explicarte mejor? Gracias.

explorer · 2011-12-05 11:33 @523

Perdón. Se me coló una 'r' (¿Ves lo importante que es prestar atención a lo que se escribe, incluso a una sola letra?)

Me refería a que miraras los archivos de registro de actividad (log) del servidor web, para que vieras si, efectivamente, el servidor web ha servido el fichero css, o no.

thegame · 2011-12-19 10:46 @490

explorer, sabes que estaba revisando el código que me distes para lo del JavaScript y cuando veo el código fuente de la página me aparece esto:

Syntax: [ Download ] [ Hide ]

Using html4strict Syntax Highlighting

<!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>Formulario Usuario</title>
<link rel="stylesheet" type="text/css" href="../../Css/style_formulario.css" />
<script type="text/javascript">//<![CDATA[
function combo{
 document.form.getElementById("institucion").innerHTML;
 return;
}
 
function validar{
 if (document.form.nombre.value.length==0){
       alert("Tiene que Escribir un Nombre")
       document.form.nombre.focus()
       return 0;
}
 
//]]></script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
 

Vi este <![CDATA ... y dentro estaba el JavaScript. Ahora me puse a investigar en Internet y leí que todo lo que estaba dentro del CDATA lo lee como texto plano, entonces por eso creo que por eso no me ejecuta el código, corrígeme si me equivoco... y he intentado varias cosas para ver cómo lo arreglo pero igual sigue ahí, entonces como tu me ayudaste con ese código quisiera saber cómo puedo arreglarlo. Gracias...

NOTA: Estoy usando el código que me indicaste:

Syntax: [ Download ] [ Hide ]

my $codigo_javascript = <<EOC
function jsopt(institucion){
document.getElementById("institucion").innerHTML;
return;
}
EOC

explorer · 2011-12-19 11:23 @516

Fíjate que el <![CDATA[ y su correspondiente cierre ]]> están comentados (tienen un '//' delante de ellos), por lo que no son visibles para el motor de JavaScript.

Publicidad

Socializa