Ver Tema

legh_21 · Mar Mar 09, 2010 3:27 pm

¡Que onda! Soy nuevo en el foro y tengo un problema que no me dormir jeje :lol:

Estoy haciendo un formulario en Perl para consultar subredes asignadas por un servidor de DHCP buscando los logs para un módulo de Webmin, y estoy tratando de tomar el valor que da un radio button sin un submit, o sea, que se mande ese valor cuando doy clic en un href; hasta ahora el href envía solo una variable que leo de un archivo, pero a la hora que quiero sacar el valor del radio button para mandarlo junto con el href; no sé cómo sacarlo, el código es:

radio button:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print "<tr> <td><b>$text{'index_semana'}</b></td>\n";

print "<td>", &ui_radio_selector([[ 1, $text{'index_semana1'}, undef ], 

                                  [ 2, $text{'index_semana2'}, undef ],

                                  [ 3, $text{'index_semana3'}. undef ],

                                  [ 4, $text{'index_semana4'}, undef ] ], "rad", 2),"</td>\n";

La línea que crea el href y envía los datos a save.cgi.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print "<a href=\"save.cgi?subred=$subnetcomplete&semana=$rad\"method=get>".&html_escape($subnetcomplete)."</a>";

Muchas gracias, saludos.

explorer · Mar Mar 09, 2010 3:45 pm

Bienvenido a los foros de Perl en Español, legh_21.

Yo el único problema que veo es que no tengo la documentación de la función ui_radio_selector().

En la función radio_group() del módulo CGI sí que es posible indicar las etiquetas separadas de los valores:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print radio_group(

    -name       => 'grupo_botones',

    -values     => ['valor1','valor2','valor3'],

    -default    => 'valor3',

    -linebreak  => 'true',

    -labels     => \%etiquetas,

    -attributes => \%atributos,

);

Luego, es posible recuperar qué radio botón se pulsó:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

$que_radio_boton = param('grupo_botones');

legh_21 · Mar Mar 09, 2010 4:33 pm

Gracias, lo probaré con esta función a ver si queda.

Saludos

legh_21 · Mar Mar 09, 2010 10:53 pm

¡Gracias, con esta función quedó de 10!

Saludos

Publicidad

Socializa