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::Template;
use WebGUI::Utility; use WebGUI::Utility;
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub page { sub page {
my ($debug, %contentHash, $w, $cmd, $pageEdit, $wobject, $wobjectOutput, $extra, $originalWobject, $proxyWobjectId, my ($debug, %contentHash, $w, $cmd, $pageEdit, $wobject, $wobjectOutput, $extra, $originalWobject, $proxyWobjectId,
@ -169,8 +170,9 @@ sub page {
$debug .='</table>'; $debug .='</table>';
} }
if ($session{header}{redirect} ne "") { if ($session{header}{redirect} ne "") {
$httpHeader = $session{header}{redirect};
WebGUI::Session::close(); WebGUI::Session::close();
return $session{header}{redirect}; return $httpHeader;
} else { } else {
$httpHeader = WebGUI::Session::httpHeader(); $httpHeader = WebGUI::Session::httpHeader();
($header, $footer) = WebGUI::Style::getStyle(); ($header, $footer) = WebGUI::Style::getStyle();

1
lib/WebGUI/SQL.pm
View file

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

1
lib/WebGUI/Wobject.pm
View file

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