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

POD for two small files

Browse source
This commit is contained in:
Colin Kuskie 2005-12-21 18:49:03 +00:00
parent 256193e4a6
commit c02a3019c2
2 changed files with 109 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -22,6 +22,13 @@ use WebGUI::URL;
use WebGUI::User;
#-------------------------------------------------------------------
=head2 www_genesis ( )
The beginning of WebGUI.
=cut
sub www_genesis {
$session{page}{useEmptyStyle} = 1;
my $output = '<html><head><title>About WebGUI</title>
@ -39,6 +46,14 @@ sub www_genesis {
return $output;
}
=head2 www_setup ( )
Initial setup for a brand new WebGUI install. Sets the administrator name,
password and email address, as well as some other WebGUI settings.
=cut
#-------------------------------------------------------------------
sub www_setup {
return "" unless ($session{setting}{specialState} eq "init");
@ -138,6 +153,14 @@ sub www_setup {
}
=head2 theWg ( )
The core WebGUI function. All WebGUI Assets, Operations and functions require this
to work, even superseding the session variable.
=cut
#-------------------------------------------------------------------
sub www_theWg {
$session{page}{useEmptyStyle} = 1;