- Added a wiki-like feature that will automatically bring a user to the

create a page form if they are in admin mode, and click on a link to
   a page that doesn't exist yet.

lib/WebGUI/Session/Url.pm

@@ -155,6 +155,29 @@ sub gateway {
         return $url;
 }
 
+#-------------------------------------------------------------------
+
+=head2 getRefererUrl ( )
+
+Returns the URL of the page this request was refered from (no gateway, no query params, just the page url). Returns undef if there was no referer.
+
+=cut 
+
+sub getRefererUrl {
+	my $self = shift;
+	my $referer = $self->session->env->get("HTTP_REFERER");
+	return undef unless ($referer);
+	my $url = $referer;
+	my $gateway = $self->session->config->get("gateway");
+	$url =~ s/htt\w+\:\/\/[A-Za-z0-9\.\-]+$gateway\/*(\S*)/$1/;;
+	if ($url eq $referer) {
+		return undef;
+	} else {
+		return $url;
+	}
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 getRequestedUrl ( )