El siguiente script global comprueba que el usuario actual es un miembro del grupo especificado. Si el usuario pertenece al grupo, el enganche devuelve True.
Este ejemplo ofrece una idea general sobre cómo puede crear un script global. Para mayor legibilidad, el ejemplo no incluye comprobación de errores. Compruebe el valor de retorno de la API de validar para verificar que no incluye errores antes de enviar el registro a la base de datos.
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; }