Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 
Índice general » Mundo Perl » Intermedio » Botón de Opción y Evento Onclick - WWW::Mechanize Responder al tema
Nuevo tema


Página 1 de 1  [ 2 mensajes ] 
 
Nota 2011-11-28 19:12 @842

Perlero Nuevo
Registrado: 2010-06-10 13:04 @586
Mensajes: 10
Botón de Opción y Evento Onclick - WWW::Mechanize
¡Saludos!

Tengo una duda con un "Botón de Opción". La sintaxis sería:
Syntax: [ Download ] [ Hide ]
Using html4strict Syntax Highlighting
  1. <input type="radio" name="radio" id="radio" value="radio">

Pero en mi caso, contiene el evento onclick():
Syntax: [ Download ] [ Hide ]
Using html4strict Syntax Highlighting
  1. <input id="givingLevel" type="radio" name="givingLevel" value="Other" onclick="rdo_OnClick(this);" />

Estoy trabajando con "WWW::Mechanize". Envío el formulario con:
Syntax: [ Download ] [ Hide ]
Using perl Syntax Highlighting
  1. $mech->submit('');

Sin embargo, la opción de "givingLevel" no se activa :cry:

La respuesta, después del submit, la guardo en un html; al abrirlo, el formulario es enviado pero da el error de no haber seleccionado la opción "givingLevel".

He probado con:
Syntax: [ Download ] [ Hide ]
Using perl Syntax Highlighting
  1. $mech->field('givingLevel' => 'Other');

Y con:
Syntax: [ Download ] [ Hide ]
Using perl Syntax Highlighting
  1. $mech->tick("givingLevel", "Other");

Pero no funciona. :cry:

¡Agradezco la ayuda!

¡Gracias!


Nota 2011-11-28 19:54 @871
Avatar de Usuario
Administrador
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Mensajes: 10216
Re: Botón de Opción y Evento Onclick - WWW::Mechanize
Habría que saber qué hace el código JavaScript (ya que WWW::Mechanize no lo ejecutará), pero, aparte de eso, debería ser algo así:

$mech->field( 'givingLevel', 1, $numero );

siendo número el índice del objeto input de entre todos los radio que se llaman 'givingLevel', correspondiente al valor 'Other'.

De todas maneras, también debería funcionar según como lo has puesto...

¿Has ejecutado mech-dump sobre la página para ver qué te dice?


P.D. Ahora tengo dudas de si es un '1' o el valor indicado por el atributo value.
P.P.D. $numero es opcional... así que al final tenemos lo que ya tenías... lo siento.

_________________
JF^D Perl programming


Responder al tema  [ 2 mensajes ] 

Reglas del Foro
No puedes abrir nuevos temas en este Foro
No puedes responder a temas en este Foro
No puedes editar tus mensajes en este Foro
No puedes borrar tus mensajes en este Foro
No puedes enviar adjuntos en este Foro

Publicidad

Socializa

Síguenos por Twitter

Suscríbete GRATUITAMENTE al Boletín de Perl en Español

Saltar a:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traducción al español por Huan Manwë para phpbb-es.com
phpBB SEO