Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: FC am 20.07.05 - 11:39:51

Titel: Userrollen abfrage in Script ?
Beitrag von: FC am 20.07.05 - 11:39:51

Hallo zusammen,
da ich gerade nen Brett vorm Kopf habe  :-: benötige ich mal kurze Schützenhilfe.

Gibt es nen einfaches Äquivalent in Script zu :@Contains(@UserRoles; "Editor")  ???

Würde gerne in Script im Postopen Event prüfen ob der Benutzer eine bestimmte Rolle hat, damit er das Doc bearbeiten darf.

Alles was ich in der Hilfe gefunden habe scheint eine langes Script zu werden, gibt es da nichts kurzes ?
THX
FC

Titel: Re: Userrollen abfrage in Script ?
Beitrag von: Thomas Schulte am 20.07.05 - 11:41:13

Doch, Evaluate.

Titel: Re: Userrollen abfrage in Script ?
Beitrag von: robertpp am 20.07.05 - 11:43:46

Hier mal ein kurzes Srcipt:

Das ins Postopen
   If RoleEnabled("[admin]") Then
      Continue = True
      Exit Sub
   Elseif RoleEnabled("[Group User]") Then
      Continue = True
      Exit Sub
   End If
Msgbox "You don't have permission to edit this document.", 0 + 16, "No Access"
   Continue = False

Das in eine Library:


Function RoleEnabled(sRole As String) As Integer
   Dim HasRole As Variant
   HasRole = Evaluate(|@IsMember("| & sRole & |"; @UserRoles)|)
   If HasRole(0) = 1 Then
      RoleEnabled = 1
   Else
      RoleEnabled = 0
   End If   
End Function

Wie Thomas auch schon gesagt hat verwendest du dabei Evaluate

Titel: Re: Userrollen abfrage in Script ?
Beitrag von: FC am 20.07.05 - 11:45:08

THX,
das war flott  ;D

Werds gleich mal testen.

Vielen Dank
FC

Titel: Re: Userrollen abfrage in Script ?
Beitrag von: FC am 20.07.05 - 13:27:03

Funzt gut, nochmal Danke.  :D