AllSubscribedDatabases

Description

Returns the collection of databases to which the user has access. This list of databases includes indirect subscriptions that may exist through group membership and group subscriptions (that is, databases to which the user is not explicitly subscribed).

Il s'agit d'une propriété en lecture seule ; elle peut être visualisée mais pas définie.

Each element in the returned collection is a Database object. If this returns an empty collection or the collection has zero elements, the user is subscribed to all databases.

Syntaxe

VBScript

user.AllSubscribedDatabases 

Perl

$user->GetAllSubscribedDatabases(); 
Identificateur
Description
user
Objet User.
Return value
A Databases collection object containing the databases to which the user has access, not just the ones to which the user is subscribed.

Exemple

Perl

use CQPerlExt;

$adminsession = CQAdminSession::Build();

$adminsession->Logon("admin", "",  "2003.06.00");

if (defined($adminsession->Logon("admin", "",  "2003.06.00"))) {
   print "Error: Not logged into ClearQuest.. please log in \n";
}

$userObj = $adminsession->GetUser("admin");

$dblist = $userObj->GetAllSubscribedDatabases();

$numdbs = $dblist->Count();

print $numdbs;

CQAdminSession::Unbuild($adminsession); 

Commentaires