From ffcee041be1172fff499d08f2be28dbde834dedb Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 8 Jun 2012 08:43:52 -0700
Subject: [PATCH] Allow WebGUI::Fork's to be built for asset specific methods,
 and not only those found in WebGUI::Asset's namespace.

---
 lib/WebGUI/Asset.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 4499ab43a..2cbf233ce 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -849,7 +849,7 @@ following arguments are required in $args:
 
 =head3 method
 
-The name of the WebGUI::Asset method to call
+The name of the asset method to call
 
 =head3 args
 
@@ -867,13 +867,22 @@ An key in Asset's i18n hash for the title of the rendered console page
 
 The full url to redirect to after the fork has finished.
 
+=head3 className
+
+The class to call C<method> in, as in
+
+    $className->$method
+
+defaults to the current Asset's classname if left blank.
+
 =cut
 
 sub forkWithStatusPage {
     my ( $self, $args ) = @_;
     my $session = $self->session;
 
-    my $process = WebGUI::Fork->start( $session, 'WebGUI::Asset', $args->{method}, $args->{args} );
+    my $className = $args->{className} || $self->get('className');
+    my $process = WebGUI::Fork->start( $session, $className, $args->{method}, $args->{args} );
 
     if ( my $groupId = $args->{groupId} ) {
         $process->setGroup($groupId);