Página 1 de 1

Webmin, Perl y radio botón

NotaPublicado: 2010-03-09 15:27 @686
por legh_21
¡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:

Sintáxis: [ Descargar ] [ Ocultar ]
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";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


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

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print "<a href=\"save.cgi?subred=$subnetcomplete&semana=$rad\"method=get>".&html_escape($subnetcomplete)."</a>";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Muchas gracias, saludos.

Re: Webmin, Perl y radio botón

NotaPublicado: 2010-03-09 15:45 @698
por explorer
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:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print radio_group(
    -name       => 'grupo_botones',
    -values     => ['valor1','valor2','valor3'],
    -default    => 'valor3',
    -linebreak  => 'true',
    -labels     => \%etiquetas,
    -attributes => \%atributos,
);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


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

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$que_radio_boton = param('grupo_botones');
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Re: Webmin, Perl y radio botón

NotaPublicado: 2010-03-09 16:33 @731
por legh_21
Gracias, lo probaré con esta función a ver si queda.

Saludos

Re: Webmin, Perl y radio botón

NotaPublicado: 2010-03-09 22:53 @995
por legh_21
¡Gracias, con esta función quedó de 10!

Saludos