[Maypole] Maypole::Component patch

From: Brian Glass (brian at glassbrian.com)
Date: Fri Sep 24 2004 - 19:59:21 BST


I'm not sure if the is the right place to be submitting these patches,
but here's another one.

If you are using session management and component calls the session does
not find it's way to the component call (unless you look in
$request->{parent}->{session}). This one-line patch puts the session
where it belongs in $request->{session}.

Add this line to Maypole::Component in the component method.

$self->{session} = $r->{session} if( exists $r->{session} );

as in:

sub component {
    my ($r, $path) = @_;
    my $self = bless { config => $r->config, parent => $r },
"Maypole::Component";
    my $url = URI->new($path);
    $self->{session} = $r->{session} if( exists $r->{session} );
    ...

Does that make sense? Or is there a better way to do this?

_______________________________________________
maypole mailing list
maypole at lists.netthink.co.uk
http://lists.netthink.co.uk/listinfo/maypole



This archive was generated by hypermail 2.1.3 : Thu Feb 24 2005 - 22:25:56 GMT