Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/08/2011, 16:55
sadragoba
 
Fecha de Ingreso: abril-2011
Mensajes: 10
Antigüedad: 13 años, 1 mes
Puntos: 0
Pregunta Validar un Select en Perl

Hola que tal!!

Estoy haciendo un sistema de compras en donde mi programacion es en base a Perl, soy nuevo en esto de la programacion en Perl pero ahi la llevo

Mi problema o duda es :
Tengo un Select en donde mis opciones son los tipos de pedidos que pueden hacer (Papeleria Comun, Equipos de Computo, Promocionales, etc...) . Lo que me gustaria es que de acuerdo a la opcion que eligan en el combo, debajo del combo en una tabla HTML se pinten los articulos que son del tipo de pedido que eligieron en el combo, es decir si eligieron Papeleria Comun, que solo se pinten los articulos de Papeleria C.

Les comento que la tabla HTML con el catalogo de los articulos ya la tengo poblada desde la base de datos, ahora solo me gustaria hacer los que le comento, tengo idea que se puede hacer con el selected, pero aun no puedo conciliar como se hace. Espero puedan ayudarme, les dejo parte de mi codigo. Gracias!


sub inicio {

my $rsf = Pg_VB->new();
$rsf->connectdb("dbname=compras");

print qq¡

Selecciona tu tipo de pedido: <select name="tipopedido">
<option value="0"> Selecciona</option>
¡;
$rsf->execute ("select cve_pedido, tipo_pedido from tc_tipopedido order by 1");

while ($rs = $rsf->getrow_hashref) {
print "<option value=\"$$rs{'cve_pedido'}\" selected>$$rs{'tipo_pedido'}</option>";
}
}