次のグローバル スクリプトは、現在のユーザーが指定されたグループのメンバであることを確認します。ユーザーがグループに属している場合、フックは True を戻します。
この例では、グローバル スクリプトの作成についての一般的な方法を示します。読みやすくするために、この例にはエラー チェックを組み込んでいません。検証 API の戻り値を調べて、エラーが含まれていないことを確認してから、レコードをデータベースにコミットしてください。
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; }