Domino Code Fragment

Code Name*
Check roll in QueryDocumentDelete to prevent deletions		Date*
08/26/2000		Source (or email address if you prefer)*
[email protected]
IP address:.
Description*
Checks to see if the current member has the DBManager Roll and can therefore delete documents.		Type*
LotusScript		Categories*
Security, Workflow
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
IsManager = Evaluate("@IsMember( ""[DBManager]""; @UserRoles) ")
If IsManager(0) <> 1 Then
Msgbox "You are not authorized to delete documents." , 16, "Error"
Continue = False
Exit Sub
End If
End Sub