package ParametersObject
@ISA = qw()

sub Name
return $ModuleName;

sub Explanation
return $ModuleExplanation;

sub Privileges
return $Privilege;

sub new
my ($module) = @_;
#	$this->SUPER::new(
return $this;

sub DESTROY
my $this = shift;
	$this->SUPER::DESTROY(

sub GetParameterHash
my ($this, $App, $pParams) = @_;
return {};

sub IsOpen
my ($this, $App, $pParams, $IsPrint) = @_;
return $App->HasPrivilege($Privilege, $IsPrint);

sub ShowMenu
my ($this, $App, $pParams, $ProgramPath, $BaseOption) = @_;
return 0 if(defined $App->{pAdminOption});
return if(!$this->IsOpen($App, $pParams, 0));
return if(!$App->HasPrivilege('ShowParameters', 0));

sub ShowPage
my ($this, $App, $pParams) = @_;
return $this->ShowParameterPage($App, $pParams);

sub UpdateData
my ($this, $App, $pParams) = @_;
return if(!$this->HasPrivilege('EditParameters'));

sub ShowParameterPage
my ($this, $App, $pParams) = @_;

sub ShowParams
my ($this, $App, $pParams) = @_;
return if(!$App->HasPrivilege('ShowParameters', 1));

sub ChangeDBVariable
my ($this, $App, $pParams) = @_;
return if(!$App->HasPrivilege('EditParameters'));
return if(!$App->HasPrivilege('ShowParameters', 1));
return if(!$DB);
return if(!$DB->IsExistTable($pParams->{DBName}, $pParams->{DBVariablesTableName}));

sub ShowEditDBVariablePage
my ($this, $App, $pParams) = @_;
return if(!$App->HasPrivilege('EditParameters'));
return if(!$App->HasPrivilege('ShowParameters', 1));
return if(!$DB);
return if(!$DB->IsExistTable($pParams->{DBName}, $pParams->{DBVariablesTableName}));

sub ShowDBVars
my ($this, $App, $pParams) = @_;
return if(!$App->HasPrivilege('ShowParameters', 1));
return if(!$DB);
return if(!$DB->IsExistTable($pParams->{DBName}, $pParams->{DBVariablesTableName}));

sub ShowModulesByType
my ($this, $App, $pParams, $Type, $pModule) = @_;
return if(!$pModule);

sub ShowModules
my ($this, $App, $pParams) = @_;
return if(!$App->HasPrivilege('ShowParameters', 1));

sub ShowCommandlineParams
my ($this, $App, $pParams) = @_;
return if(!$App->HasPrivilege('ShowParameters', 1));

sub ShowEnvVars
my ($this, $App, $pParams) = @_;
return if(!$App->HasPrivilege('ShowParameters', 1));

sub DatabaseStructures
my ($this, $App, $pParams) = @_;
return if(!$App->HasPrivilege('ShowParameters', 1));

sub ShowUserInformation
my ($this, $App, $pParams) = @_;
return if(!$App->HasPrivilege('ShowParameters', 1));