From a649816db8cf9f703e5e24eb5cf380dee4ccbc2e Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 28 Jul 2010 16:00:44 -0700
Subject: [PATCH] handle query params before URLs

---
 lib/WebGUI/Asset.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index cecb0758d..9e3c6121e 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -572,7 +572,12 @@ A URL.
 =cut
 
 sub dispatch {
-	my ($self, $fragment) = @_;
+    my ($self, $fragment) = @_;
+    if (my $func = $self->session->form->param('func')) {
+        if (my $sub = $self->can('www_'.$func)) {
+            return $sub->();
+        }
+    }
     if (! $fragment ) {
         return $self->www_view;
     }