[Catalyst-commits] r6361 - trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-05-03 16:05:46 +0100 (Thu, 03 May 2007)
New Revision: 6361

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
Log:
Added possibility to pass parameters from events to Catalyst.

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-05-03 13:59:02 UTC (rev 6360)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-05-03 15:05:46 UTC (rev 6361)
@@ -58,6 +58,7 @@
             
 sub EVENT_REQUEST {
    my ($kernel, $heap, $session, $request) = @_[KERNEL, HEAP, SESSION, ARG0];
+   
    $heap->{'class'}->handle_request($request);
 }
 
@@ -66,6 +67,10 @@
    
    my $controller = $request->{'controller'} || '/';
 
+   foreach (keys %{ $request }) {
+      $c->request->parameters->{$_} = $request->{$_};
+   }
+
    my $path = $controller;
    $path =~ s{^/+}{};
 
@@ -82,7 +87,7 @@
    $base->path_query($base_path);
    $c->request->base($base);
    
-   $c->stash->{_parent} = $request->{'parent'};
+   $c->stash->{'_parent'} = $request->{'parent'};
 }
 
 =head1 NAME