Perl - Becaria desesperada

 
Vista:

Becaria desesperada

Publicado por Lewinsky (2 intervenciones) el 30/01/2003 13:00:40
Hola,

Voy directamente al grano. El problema es que este trozo de código, debería mandar al formulario de forma recursiva (mediante hiddens) los códigos seleccionados en un bucle. Bien, no lo hace, y me gustaría saber por qué.
(Hago el Submit dentro de unos procedimientos en javascript), Os mando el código completo para que lo veais (Lo importe es a partir de que se comprueba la existencia de las variables, lo hace en la primera iteración recursiva (el formulario se llama a si mismo), pero no en la segunda.).

#!/usr/bin/perl

use DBI;

print "Content-Type: text/html\n\n";
print "<html>";
print "<head>";
print "<script languaje = JavaScript>";
print<<Javascript;
function borrado(borrar){
//En caso de que se escoja borrado
var ventana;

document.write("Has escogido borrado");
ventana = window.open("borrar_ubicacion.cgi","_blank");
borrar.submit();
}

function no_borrado(borrar){
//En caso de que no se escoja borrado
var ventana;

document.write("No has escogido borrado");
ventana = window.open("borrar_ubicacion.cgi","_blank");
borrar.submit();
}
</script>
Javascript

print "<title>Borrado de ubicaciones</title>";

my($usuario,$pass,$bda);
my($conexion);
my($sql,$sentencia);
my(%row);
my($sql2);

sub LeerParametros(){
my($f)=@_;
my($datos,@parametros,$contenido,$clave);

if ($ENV{REQUEST
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder