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:
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>";
}
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