package WebLinkObject
@ISA = qw()

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

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

sub SetApparatusMode
sub SetApparatusMode { my ($this,$f)=
return $this->{ApparatusMode} = $f;

sub ShowMenu
my ($this, $App, $pParams, $ProgramPath, $BaseOption, $ModuleName, $pMenuTitle, $TryDirectLink) = @_;
return 1;

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

sub BuildGroups
my ($this, $App, $pParams, $MyGroups, $TargetGroups, $DefaultGroups, $pOptionGroups) = @_;
return $ret;

sub BuildPrivileges
my ($this, $App, $pParams, $MyPrivileges, $TargetPrivileges, $DefaultPrivileges, $pOptionPrivileges) = @_;
return $ret;

sub GetMyInformation
my ($this, $App, $pParams, $UsersTableName) = @_;
return {} if(!$DB);
return %Hit;

sub GetDB
my ($this, $App, $pParams, $AppModuleName, $DBConfigName) = @_;
my ($this, $App, $pParams, $pDBConfigArray, $DBConfigName) = @_;
return $App->MyCGIApplication::OpenDB($DBConfigName, $pDBConfigArray);
return ($DB, $DBConfigName, $DBMName, $DBServer, $DBUser, $DBPassword, $DBName, @TableNames);

sub BuildLink
my ($this, $App, $pParams, $ForMenu, $URLTemplate, $pLinkTitle, $pMenuTitle, $URLTemplate, 
			$CreateNewUser, $ChangePassword, $CryptPassword, $ChangePrivileges, $ChangeGroups) = @_;
return (-1, "<b>Try this URL:</b> <a href=\"$URL\" target=\"_blank\">" . $App->mlText(%$pLinkTitle) . "</a>\n");
return "no DB found" if(!defined $DB);
return ($ret, "<b>Try this URL:</b> <a href=\"$URL\" target=\"_blank\">" . $App->mlText(%$pLinkTitle) . "</a>\n");
return ($ret, "<b>Try this URL:</b> <a href=\"$URL\" target=\"_blank\">" . $App->mlText(%$pLinkTitle) . "</a>\n");
return ($ret, "<a href=\"$URL\" target=\"_blank\">" . $App->mlText(%$pMenuTitle) . "</a>\n");
return ($ret, "<a href=\"$URL\" target=\"_blank\">" . $App->mlText(%$pLinkTitle) . "</a>\n");