oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed the 500 error on redirect.

Browse source
This commit is contained in:
JT Smith 2002-08-23 01:36:17 +00:00
parent dd07adec0d
commit 9eae4862e0
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI.pm
View file

@ -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();

1
lib/WebGUI/SQL.pm
View file

@ -14,7 +14,6 @@ package WebGUI::SQL;
=cut
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Exporter;
use strict;

1
lib/WebGUI/Wobject.pm
View file

@ -14,7 +14,6 @@ package WebGUI::Wobject;
=cut
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use strict qw(subs vars);
use Tie::IxHash;