GetHookSeesAllUsers

Descrizione

Restituisce un valore booleano che indica se l'hook corrente visualizza tutti gli utenti o solo gli utenti che l'utente corrente può visualizzare. Il valore True indica che l'hook corrente visualizza tutti gli utenti quando esegue una query. Il valore False indica che l'hook corrente può visualizzare solo gli utenti per cui l'utente corrente è autorizzato quando esegue una query.

Nota: questo metodo è stato reso disponibile nella versione 7.1.

Sintassi

VBScript

session.GetHookSeesAllUsers 

Perl

session->GetHookSeesAllUsers(); 
Identificativo
Descrizione
session
L'oggetto Session che rappresenta la sessione di accesso al database corrente.
Valore di ritorno
Restituisce il valore True booleano se l'hook corrente visualizza tutti gli utenti quando esegue una query di utente. Restituisce il valore False se l'hook corrente può visualizzare solo gli utenti per cui l'utente corrente è autorizzato quando esegue una query di record.

Esempi

VBScript

sub project_ChoiceList(fieldname, choices)
  ' fieldname As String
  ' choices As Object
  ' record type name is Defect
  ' field name is project

set session = GetSession
dim curHooksSeesAllUsers

' Store current session "Context"
curHookSeesAllUsers = session.GetHookSeesAllUsers()

' set session context to "User Context"
session.SetHookSeesAllUsers(0)

set querydef = session.BuildQuery("project") 
querydef.BuildField("name") 
set resultset = session.BuildResultSet(querydef)
resultset.Execute 

status =resultset.MoveNext
Do While status = AD_SUCCESS 
   choices.AddItem resultSetObj.GetColumnValue(1) 
Loop 

End Sub

Perl

sub project_ChoiceList 
{
    my($fieldname) = @_;
    my @choices;
    # $fieldname as string scalar
    # @choices as string array
    # record type name is Defect
    # field name is Project

    # start building a query of the users 
    my $session = $entity->GetSession();
    my ($curHooksSeesAllUsers);

# store current "Context"
    $curHooksSeesAllUsers=$session->GetHookSeesAllUsers();

# set to "User Context"
    $session->SetHookSeesAllUsers(0);

    my ($queryDefObj, $resultSetObj);

    $queryDefObj = $session->BuildQuery("Project");

    # have the query return the desired
    # field of the user object(s)
    $queryDefObj->BuildField("Name");
    $resultSetObj = $session->BuildResultSet($queryDefObj);

    # run it
    $resultSetObj->Execute();

    # add each value in the returned column to the choicelist
    while ($resultSetObj->MoveNext() == $CQPerlExt::CQ_SUCCESS) {
         push(@choices,$resultSetObj->GetColumnValue(1));
    }

    return @choices;
}

Feedback