Restituisce un valore booleano che indica se l'hook corrente visualizza tutti i record o solo i record che l'utente corrente può visualizzare. Il valore True indica che l'hook corrente visualizza tutti i record quando esegue una query. Il valore False indica che l'hook corrente può visualizzare solo i record per cui l'utente corrente è autorizzato quando esegue una query.
VBScript
session.GetHookSeesAllRecords
Perl
session->GetHookSeesAllRecords();
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 curHookSeesAllRecords ' Store current session "Context" curHookSeesAllRecords = session.GetHookSeesAllRecords() ' set session context to "User Context" session.SetHookSeesAllRecords(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 my $session = $entity->GetSession(); my ($curHookSessAllRecords); # store current "Context" $curHookSessAllRecords=$session->GetHookSeesAllRecords(); # set to "User Context" $session->SetHookSeesAllRecords(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; }