Foro - Perl en Español

por **manu8c** » 2011-03-31 10:00 @458

Primero de todo, hola y gracias por el gran foro que tienes montado. Gracias a él he resuelto la mayoría de dudas que me han surgido en el PFC.

Pero ahora hay una que no consigo resolver.

Pongo un poco de código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!"C:\xampp\perl\bin\perl.exe"
 
use DBI;
use CGI;
 
print "Content-type: text/html\r\n\r\n";
 
print html();
javaS();        
print tittle();
print body();   
......
 
print "<select class='select' id='order' name='order' multiple size='6'>" ;
 
    print "<option value='1'>uno</option>";
    print "<option value='2''>dos</option>";
     print "<option value='3'>tres</option>";
print "</select>";
 
print "<input type='button' value='TO RIGHT' onclick='right()'>";
 
print "<select class='select' id='orderOk' name='orderOk' multiple size='6'>" ;
 
print "</select>";
 
sub javaS
{
        
        print "<script>";
        print "function right() {";
        print "obj=form1.getelementbyid('order');";
        print "alert('HELLO');";
        
        #print "if (obj.selectedindex==-1) return;";
        #print "valor=obj.value;";
        #print "txt=obj.options(obj.selectedindex).text;";
        #print "obj.options[obj.selectedindex]=null;";
        #print "obj2=document.getelementbyid('OrderOk');";
        #print "opc = new option(txt,valor);";
        #print "eval(obj2.options[obj2.options.length]=opc);";  
        print "}";
        print "</script>";
}
 
 
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Si pongo esta línea el aviso, Hello no aparece:
print "obj=document.getelementbyid('order');";

Lo he intentado hacer con formularios, aunque no sería lo que quisiera, y de todas maneras no he podido.

A ver si me puedes echar una mano a pasar que funcione el código.

Supongo que será algo del document... pero hay cosas de la programación web que se me escapan.

Gracias

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

Si hay un problema con el código JavaScript, el propio navegador te puede ayudar un poco a saber dónde está el fallo.

Abre el Firefox, menú Herramientas, y saca la Consola de errores. Quizás tengas que limpiar la lista de errores, para que esté vacía.

Ahora, carga la página del CGI. Si hay un error en la interpretación del código JavaScript, saldrá ahí.

por **manu8c** » 2011-04-02 06:48 @325

Muchas gracias por la respuesta.

Después de toda la noche dándole vueltas, a la media hora de poner la pregunta en el foro encontré la solución. Y la solución es la más tonta que existe.

getElementById, y no getelementbyid.

Lo que tiene no estar acostumbrado a la programación web.

Gracias

Foro - Perl en Español

Javascript en perl

Javascript en perl

Publicidad

Re: Javascript en perl

Re: Javascript en perl

¿Quién está conectado?