Il seguente script globale verifica che l'utente corrente sia un membro del gruppo specificato. Se l'utente appartiene al gruppo, l'hook restituisce un valore True.
Questo esempio fornisce un'idea generale di come sia possibile creare uno script globale. Per ragioni di leggibilità, l'esempio non include la verifica degli errori. Verificare il valore di ritorno dell'API di convalida per assicurarsi che non includa errori prima di eseguire il commit del record sul database.
Function IsInGroup(groupname) ' groupName As String ' IsInGroup As Bool Set curSession = GetSession groupList = curSession.GetUserGroups IsInGroup = False For Each group in groupList If group = groupname Then IsInGroup = True Exit For End If Next End Function
sub IsInGroup { my ($groupName) = @_; my ($curSession, $groupList, $isInGroup, $group, ); $curSession = $entity->GetSession(); $groupList = $curSession->GetUserGroups(); $isInGroup = 0; foreach $group (@$groupList) { if ($group eq $groupName) { $isInGroup = 1; last; } } return $isInGroup; }