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

fix [ 1488556 ] blank page after setup

Browse source
This commit is contained in:
JT Smith 2006-05-17 23:25:49 +00:00
parent aea9ce76f7
commit 6ba68835e0
5 changed files with 21 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Operation/WebGUI.pm
View file

@ -41,6 +41,7 @@ sub www_genesis {
return $output;
}
#-------------------------------------------------------------------
=head2 www_setup ( )
Initial setup for a brand new WebGUI install. Sets the administrator name,
@ -49,11 +50,8 @@ password and email address, as well as some other WebGUI settings.
=cut
#-------------------------------------------------------------------
sub www_setup {
my $session = shift;
$session->http->setCacheControl("none");
$session->http->setMimeType("text/html");
return "" unless ($session->setting->get("specialState") eq "init");
my $i18n = WebGUI::International->new($session, "WebGUI");
my $output = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
@ -109,7 +107,7 @@ sub www_setup {
$session->setting->set('companyEmail',$session->form->email("companyEmail"));
$session->http->setRedirect($session->url->gateway());
$session->http->sendHeader;
return "";
return undef;
} else {
$output .= '<legend align="left">Admin Account</legend>';
my $u = WebGUI::User->new($session,'3');
@ -148,7 +146,10 @@ sub www_setup {
<img src="'.$session->url->extras('background.jpg').'" style="border-style:none;position: absolute; top: 0; left: 0; width: 100%; height: 100%; z-index: 5;" />
</body>
</html>';
return $output;
$session->http->setCacheControl("none");
$session->http->setMimeType("text/html");
$session->http->sendHeader;
$session->output->print($output);
}