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>";
- }
Coloreado en 0.004 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