IsMultisiteActivated
Description
Returns TRUE if the current database has been activated for multisite operations. This method returns TRUE even the current database is the only existing replica.
Note: This method became available in version
2002.05.00.
Syntax
VBScript
session.IsMultisiteActivated
Perl
$session->IsMultisiteActivated
();
- Identifier
- Description
- session
- The Session object that represents the current database-access session.
- Return value
- Returns True if the current database has been activated for multisite operations.
Examples
Perl
use CQPerlExt;
my $sess;
my $entity;
$sess = CQSession::Build();
$sess->UserLogon("admin", "", "MULTI", "CQMS.MS_ACCESS.SITEA");
if ($sess->IsMultisiteActivated()) {
# print out list of available replicas
my $qryDef;
my $resultSet;
my $status;
$qryDef = $sess->BuildQuery("ratl_replicas");
$qryDef->BuildField("name");
$qryDef->BuildField("clan");
$qryDef->BuildField("family");
$resultSet = $sess->BuildResultSet($qryDef);
$resultSet->Execute();
$status = $resultSet->MoveNext();
printf ("\nname\tclan\tfamily\n");
while($status == $CQPerlExt::CQ_SUCCESS) {
printf("%s\t%s\t%s\n",
$resultSet->GetColumnValue(1),
$resultSet->GetColumnValue(2),
$resultSet->GetColumnValue(3));
$status = $resultSet->MoveNext();
}
}
CQSession::Unbuild($sess);