Primer combo, tengo:
Computadora
Redes
Si yo selecciono computador me debería de mostrar en el segundo combo:
Cable malo
Teclado malo
etc
Mi código del segundo combo es este y el select del sql está bueno. Otra cosa. El primer combo también carga bien.
Using perl Syntax Highlighting
- ( $mun, $dep, $template, $driver, $usuario1, $clave1 ) = @_;
- $driver = "dbi:Pg:dbname=soporteservicio;host=localhost;port=5432";
- if ( $dbh = DBI->connect( $driver, "jcuza", "123" ) ) {
- $operacion = "select b.nombre_servicio_espe from tservicios a, tservicios_especificos b where a.cod_servicio =
- b.cod_servicio and a.cod_servicio = '$dep'";
- $statement = $operacion or die "\n Error($DBI::err): $DBI::errstr\n)";
- $statement->execute or die "\n Error($DBI::err): $DBI::errstr\n";
- my @loop;
- my ( $nmunicipio, $dmunicipio );
- while ( ( $nmunicipio, $dmunicipio ) = $statement->fetchrow_array ) {
- $mun1 = $dmunicipio;
- if ( $mun eq "$nmunicipio" ) {
- $select_mun = "selected='true'";
- }
- else {
- $select_mun = "";
- }
- my %loop_mun = ( var_mun => "<OPTION $select_mun value=$nmunicipio>$mun1</option>" );
- push( @loop, \%loop_mun );
- }
- $template->param( loop_mun => \@loop );
- }
- return ($template);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
