Foro - Perl en Español

por **gonzalos** » 2011-08-30 09:52 @453

Parece ser que hay dos errores

El primero aparece al cargar la página

-

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Error: syntax error

Archivo de origen: http://localhost/cgi-bin/lineas2.cgi

Línea: 9, columna: 28

Código fuente:

function muestra_oculta(id){.................................... Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y el segundo al intentar ejecutar el código JavaScript, si picamos sobre el enlace.

--

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Error: muestra_oculta is not defined

Archivo de origen: http://localhost/cgi-bin/lineas2.cgi

Línea: 1Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Antes de añadirlo al script, probé en HTML y funcionaba sin problemas.

Un saludo
Gonzalo

Buenas tardes a todos

Finalmente he conseguido que funcione la aplicación, a excepción de una cosa y es que el Div que debería estar oculto aparece visible al cargar la página.

Además he hecho unas pequeñas modificaciones en el código, para que el el id del Div se asocie al id de la tabla de la BBDD y así el código javascript funcione independientemente con cada párrafo a ocultar.

Aquí dejo las modificaciones

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print table (
 
                    Tr({ -align => 'CENTER', -valign => 'top' }, [
                        td([
                            a({-href=>"#", -Onclick=>"muestra_oculta('$id')"},$denominacion),
                
                                $grupo]),
                    ]),
                );
           print div({id=>$id},
           
                  table (
 
                    Tr({ -align => 'CENTER', -valign => 'top' }, [
                        td([
                
                                $explicacion]),
                    ]),
                ), 
             ), 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Seguiré buscando para corregir el pequeño error que queda por solucionar.

Un saludo
Gonzalo

por **explorer** » 2011-09-01 06:44 @322

Quizá sea tan sencillo como poner un display:none:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print div({-id => $id, -style => 'display:none'},
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **gonzalos** » 2011-09-01 07:06 @337

Estupendo, muchas gracias por la respuesta.

Un saludo
Gonzalo

por **gonzalos** » 2011-09-02 02:57 @164

Buenos días para que se vea más claro aquí dejo el código completo del script, con las modificaciones que se han ido haciendo a lo largo del hilo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/xampp/perl/bin/perl.exe
use strict;
use warnings;
use CGI qw/:standard/;
use DBI;
 
 my $denominacion;
 my $id;
 my $explicacion;
 my $grupo;
 
 
my $dbh=DBI->connect("DBI:mysql:mysql;host=localhost",'user','pass')
        or die "Cannot connect to database:$DBI::errstr";
       
my $sth=$dbh->prepare("SELECT denominacion,grupo,explicacion FROM lineas ORDER BY grupo");
$sth->execute() or die "Cannot execute sth:$DBI::errstr";
 
my $codigo_js = <<EOJ;
function muestra_oculta(id) {
    if (document.getElementById){             // se obtiene el id
        var el = document.getElementById(id); // se define la variable "el" igual a nuestro div
                                              // damos un atributo display:none que oculta el div
        el.style.display = (el.style.display == 'none') ? 'block' : 'none';
    }
}
window.onload = function() {
    // hace que se cargue la función
    // lo que predetermina que div estará oculto hasta llamar a la función nuevamente
    // "contenido_a_mostrar" es el nombre que le dimos al DIV
    muestra_oculta('id');
}
EOJ
;
print header;
print start_html(
     -title  => 'RECETAS DE COCINA',
     -script => $codigo_js,
);
 
 
while(($id, $denominacion,$grupo,$explicacion)=$sth->fetchrow_array()){
    if ($explicacion eq "") {
        $explicacion="<b>sin datos</b>";
    }
    print
        table(
            Tr({ -align => 'center', -valign => 'top' }, [
                td([
                    a({ -href => "#", -Onclick => "muestra_oculta('$id')" }, $denominacion),
                    $grupo,
                ]),
            ]),
        );
     
    print
        div({ id => $id, -style => 'display:none' },
            table(
                Tr({ -align => 'center', -valign => 'top' }, [
                    td([
                        $explicacion,
                    ]),
                ]),
            ),
        ),
  };
print end_html;
$dbh->disconnect();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Un saludo
Gonzalo

por **explorer** » 2011-09-02 06:31 @313

Esta es mi versión (no probada):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/xampp/perl/bin/perl.exe
use strict;
use warnings;
 
use CGI qw<:standard>;
use DBI;
 
my $dbh = DBI->connect("DBI:mysql:mysql;host=localhost",'user','pass')
    or die "Cannot connect to database:$DBI::errstr";
 
my $sth = $dbh->prepare("SELECT denominacion,grupo,explicacion FROM lineas ORDER BY grupo");                                                                                     
 
$sth->execute()
    or die "Cannot execute sth:$DBI::errstr";
 
my $codigo_js = <<EOJ;
function muestra_oculta(id) {
    if (document.getElementById){             // se obtiene el id
        var el = document.getElementById(id); // se define la variable "el" igual a nuestro div
                                              // damos un atributo display:none que oculta el div
        el.style.display = (el.style.display == 'none') ? 'block' : 'none';
    }
}
EOJ
 
print
    header,
    start_html(
        -title  => 'RECETAS DE COCINA',
        -script => $codigo_js,
        -onLoad => "muestra_oculta('id')",
    )
    ;
 
while(my($id, $denominacion, $grupo, $explicacion) = $sth->fetchrow_array()) {
 
    $explicacion = b('sin datos') if not $explicacion;
 
    print
        table(
            Tr({ -align => 'center', -valign => 'top' }, [
                td([
                    a({ -href => "#", -Onclick => "muestra_oculta('$id')" }, $denominacion),
                    $grupo,
                ]),
            ]),
        ),
        div({ id => $id, -style => 'display:none' },
            table(
                Tr({ -align => 'center', -valign => 'top' }, [
                    td([
                        $explicacion,
                    ]),
                ]),
            ),
        )
        ;
}
 
print
    end_html
    ;
 
$dbh->disconnect();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

CGI con DIV oculto

Re: CGI con DIV oculto

Publicidad

Re: CGI con DIV oculto

Re: CGI con DIV oculto

Re: CGI con DIV oculto

Re: CGI con DIV oculto

Re: CGI con DIV oculto

Re: CGI con DIV oculto

¿Quién está conectado?