diff options
| author | Michael Kröll <pepl@cpan.org> | 2008-12-01 22:20:34 +0100 |
|---|---|---|
| committer | Michael Kröll <pepl@cpan.org> | 2008-12-01 22:20:34 +0100 |
| commit | 32b0ff14cda17d53a18b591185325c5735a0f19b (patch) | |
| tree | 21bc008604c866e799f8bae9da0304ac655513b7 /lib | |
| parent | Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID (diff) | |
| download | Simple-OpenID-32b0ff14cda17d53a18b591185325c5735a0f19b.tar.gz Simple-OpenID-32b0ff14cda17d53a18b591185325c5735a0f19b.tar.bz2 Simple-OpenID-32b0ff14cda17d53a18b591185325c5735a0f19b.zip | |
Pass through params to stylesheet
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/PAUSE/OpenID/Controller/Root.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index c37b2c2..ba6db5d 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -32,6 +32,11 @@ sub index :Path :Args(0) { $c->stash->{xml} =<<XML; <document/> XML + + # Pass through parameters (unchecked for now) + foreach my $key ( keys %{$c->req->params} ) { + $c->stash->{$key} = $c->req->param($key); + } # Hello World $c->forward('PAUSE::OpenID::View::XSLT'); |