Returns the collection of databases to which the user is 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.
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->GetSubscribedDatabases(); $numdbs = $dblist->Count(); print $numdbs; CQAdminSession::Unbuild($adminsession);