From 9eae4862e0693c8ebfa95041970ce78640dec2c7 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 23 Aug 2002 01:36:17 +0000
Subject: [PATCH] Fixed the 500 error on redirect.

---
 lib/WebGUI.pm         | 4 +++-
 lib/WebGUI/SQL.pm     | 1 -
 lib/WebGUI/Wobject.pm | 1 -
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm
index 0b3d8cb37..d9a2021d9 100644
--- a/lib/WebGUI.pm
+++ b/lib/WebGUI.pm
@@ -24,6 +24,7 @@ use WebGUI::Style;
 use WebGUI::Template;
 use WebGUI::Utility;
 
+
 #-------------------------------------------------------------------
 sub page {
 	my ($debug, %contentHash, $w, $cmd, $pageEdit, $wobject, $wobjectOutput, $extra, $originalWobject, $proxyWobjectId,
@@ -169,8 +170,9 @@ sub page {
                 $debug .='</table>';
 	}
 	if ($session{header}{redirect} ne "") {
+		$httpHeader = $session{header}{redirect};
 		WebGUI::Session::close();
-		return $session{header}{redirect};
+		return $httpHeader;
 	} else {
 		$httpHeader = WebGUI::Session::httpHeader();
 		($header, $footer) = WebGUI::Style::getStyle();
diff --git a/lib/WebGUI/SQL.pm b/lib/WebGUI/SQL.pm
index 35340a920..9d71f5555 100644
--- a/lib/WebGUI/SQL.pm
+++ b/lib/WebGUI/SQL.pm
@@ -14,7 +14,6 @@ package WebGUI::SQL;
 
 =cut
 
-use CGI::Carp qw(fatalsToBrowser);
 use DBI;
 use Exporter;
 use strict;
diff --git a/lib/WebGUI/Wobject.pm b/lib/WebGUI/Wobject.pm
index a7fecadb8..1f55f37f2 100644
--- a/lib/WebGUI/Wobject.pm
+++ b/lib/WebGUI/Wobject.pm
@@ -14,7 +14,6 @@ package WebGUI::Wobject;
 
 =cut
 
-use CGI::Carp qw(fatalsToBrowser);
 use DBI;
 use strict qw(subs vars);
 use Tie::IxHash;