From 5b58fcbb234a76f382ed1f7ac32670d4ab4fccee Mon Sep 17 00:00:00 2001
From: Alan Ritari <aritari@webgui-cvs>
Date: Wed, 11 Aug 2004 22:11:58 +0000
Subject: [PATCH] + wobject can force 302 redirect after all page processing by
 setting   $session{page}{redirectURL}

---
 lib/WebGUI.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm
index 923478b21..42e4b0f13 100644
--- a/lib/WebGUI.pm
+++ b/lib/WebGUI.pm
@@ -176,7 +176,14 @@ sub page {
 		}
 		$cache->set($output, $ttl) if ($useCache);
 	}
-	my $httpHeader = WebGUI::HTTP::getHeader();
+        my $httpHeader;
+
+        # allow a wobject to force a redirect by setting {page}{redirectURL}
+        if ($session{'page'}{'redirectURL'}) {
+                $httpHeader = WebGUI::Session::httpRedirect(WebGUI::Macro::process($session{'page'}{'redirectURL'}));
+        } else {
+               $httpHeader = WebGUI::HTTP::getHeader();
+        }
 
 	# This allows an operation or wobject to write directly to the browser.
         if ($session{page}{empty}) {