allow redirect_to a url parameter

2 files changed, 9 insertions, 4 deletions

diff --git a/lib/Reaction/UI/Controller.pm b/lib/Reaction/UI/Controller.pm
index 2d1b843..8222215 100644
--- a/lib/Reaction/UI/Controller.pm
+++ b/lib/Reaction/UI/Controller.pm
@@ -55,7 +55,7 @@ sub pop_viewports_to {
 }
 
 sub redirect_to {
-  my ($self, $c, $to, $cap, $args, $attrs) = @_;
+  my ($self, $c, $to, $cap, $args, $attrs, $domain) = @_;
 
   #the confess calls could be changed later to $c->log ?
   my $action;
@@ -76,6 +76,7 @@ sub redirect_to {
   $args ||= $c->req->args;
   $attrs ||= {};
   my $uri = $c->uri_for($action, $cap, @$args, $attrs);
+  $uri->host($domain) if $domain;
   $c->res->redirect($uri);
 }
 
diff --git a/lib/Reaction/UI/ViewPort/Role/Actions.pm b/lib/Reaction/UI/ViewPort/Role/Actions.pm
index 89b5ae3..778115b 100644
--- a/lib/Reaction/UI/ViewPort/Role/Actions.pm
+++ b/lib/Reaction/UI/ViewPort/Role/Actions.pm
@@ -62,14 +62,18 @@ sub _build_actions {
     my $uri = $proto->{uri} or confess('uri is required in prototype action');
     my $label = exists $proto->{label} ? $proto->{label} : $proto_name;
     my $layout = exists $proto->{layout} ? $proto->{layout} : 'uri';
-    my $layout_args = exists $proto->{layout_args} ? $proto->{layout_args} : {};
 
     my $action = Reaction::UI::ViewPort::URI->new(
       location => join ('-', $loc, 'action', $i++),
       uri => ( ref($uri) eq 'CODE' ? $uri->($target, $ctx) : $uri ),
       display => ( ref($label) eq 'CODE' ? $label->($target, $ctx) : $label ),
-      layout => ( ref($layout) eq 'CODE' ? $layout->($target, $ctx) : $layout ),
-      layout_args => ( ref($layout_args) eq 'CODE' ? $layout_args->($target, $ctx) : $layout_args ),
+      layout => $layout,
+      exists $proto->{layout_args} ?
+        ( ref($proto->{layout_args}) eq 'CODE' ? 
+            $proto->{layout_args}->($target, $ctx) 
+            : 
+            $proto->{layout_args} ) 
+        : ()
     );
     push(@act, $action);
   }