Add make_abs_uri

lib/Act/Util.pm

@@ -13,7 +13,7 @@ use Act::Database;
 
 use vars qw(@ISA @EXPORT %Languages);
 @ISA    = qw(Exporter);
-@EXPORT = qw(make_uri make_uri_info self_uri localize);
+@EXPORT = qw(make_uri make_abs_uri make_uri_info self_uri localize);
 
 # password generation data
 my %grams = (
@@ -96,6 +96,14 @@ sub make_uri
     return _build_uri($uri, %params);
 }
 
+sub make_abs_uri {
+    my ( $action, %params ) = @_;
+
+    my $uri = $Request{r}->uri;
+    $uri->path(make_uri(@_));
+    return $uri;
+}
+
 # create a uri pathinfo-style
 sub make_uri_info
 {
@@ -348,6 +356,10 @@ Returns an URI that points to I<action>, with an optional query string
 built from I<%params>. For more details on actions, refer to the
 Act::Dispatcher documentation.
 
+=item make_abs_uri(I<$action>, I<%params>)
+
+Similar to L<make_uri/"">, but returns an absolute URI.
+
 =item self_uri(I<%params>)
 
 Returns a self-referential URI (a URI that points to the current location)