Foro - Perl en Español

por **danimera** » 2010-10-28 10:15 @468

Creé un módulo llamado PerlEasyCar

Es simple

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package PerlEasyCart;
 
use strict;
use warnings;
use CGI::Session;
 
 
our $VERSION = '0.01000_13';
 
 
my $session = new CGI::Session();
use vars qw($VERSION @EXPORT);
 
require Exporter;
 
@EXPORT = qw(
        addItem
        items
);
 
sub new{
 
        my ($class, @args) = @_;
        my $self = {};
        bless  $self, $class;
        return $self;
}
 
 
 
 
sub addItem{
 
        my ( $self, $id, $cantidad ) = @_;
    #my $hash = $session->param('productos');
    #$hash->{$id} = $cantidad;
 
    $session->param('prd-'.$id,$cantidad);
 
 
    $session->flush();
    return 1;
 
}
 
sub items{
        my $it = $session->param('id');
        return $it;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Y lo llamo desde un script pero no me actualiza la session cuando lo llamo desde mi otro script.

Básicamente la línea esta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub addProducto{
 
    $self = new CGI;
    my $cart = new PerlEasyCart;
        $template = HTML::Template->new(filename => 'admin/plugins/ShoppingCart/templates/confirmacion-compra.tmpl');
 
    $session->param('prd-'.$q->param('id-producto'), '4');
    $cart->addItem("prd-".$q->param('id-producto'),'1');
 
    $template->param(COMFIRMARCOMPRA => 1);
 
    return $template->output;
 
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

$session->param('prd-$q->param('id-producto')', '4'); si me agrega el producto a la session, pero $cart->addItem("prd-".$q->param('id-producto'),'1'); no lo hace...

La verdad, tengo una solución, pero no me queda tan claro porque el de pasar esto, no soy bueno digamos en trabajar con mis propios módulos en Perl, ya que rara vez toca hacer uno, siempre existe uno mejor, ¡ja,ja,ja! ^^

Luego otra función llamo y hago un Dumper:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub cerrarSession{
 
        #$session->delete();
    #$session->flush();
    #$session->param('productos', "sdsdsdsdsds");
    return "<pre>". Dumper $session;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Bueno, cabe decir que antes del script que llama el módulo PerlEasyCart tengo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package ShoppingCart;
 
use Data::Dumper;
use CGI::FormBuilder;
use Config::Auto;
use Data::Pagination;
use CGI::Session;
 
use PerlEasyCart;
 
$q = new CGI;
 
my $cfg;
my $dbh;
my $session =  new CGI::Session();
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

es un error sintáctico... fíjate que incluso el coloreado de sintaxis de Perl en este mensaje intenta colorear el estropicio de comillas simples que tienes puesto.

No sé muy bien cómo Perl interpretará 'prd-$q->param('id-producto')' pero creo que no muy bien...

Recuerda: si pones algo con entrecomillado simple, Perl no lo interpreta, así que 'prd-$q->param(' es justamente eso (Perl no ve a $q como un objeto a quien llamar al método param()).

use strict;
use warnings;
use diagnostics;

...

por **danimera** » 2010-10-28 11:25 @517

Cometí un error, realmente en mi código la línea está correcta; algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$session->param('prd-788','1');
$cart->addItem("prd-".$q->param('id-producto'),'1');Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De todas maneras el problema no radica en agregar a $session, si no cuando lo uso desde $cart->addItem... Éste es quien no me agrega nada a la session...

Foro - Perl en Español

Problema de sesión llamada desde una clase

Problema de sesión llamada desde una clase

Publicidad

Re: Problema de sesión llamada desde una clase

Re: Problema de sesión llamada desde una clase

¿Quién está conectado?