Domino Code Fragment

Code Name*
Reassign Form Agent		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.225.11.98
Description*
Database: A support desk application
Purpose: Change form name if user is a supervsior. New form allows edit of assign field.		Type*
Formula		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Class := "Notes";
Cache := "Cache";
NoCache := "NoCache";
Database := "names.nsf";
View := "($ListGroup)";
Key := "Supervisors";

Supervisors := @DbLookup(Class:NoCache; Database; View; 2);
temp := @If(@IsMember(@Name([CN]; @UserName); Supervisors); 1; 0);
temp2 := @If(temp = 1; @SetField("Form"; "formname"); "");
temp3 := @If(temp = 0; @Return(""); @Command([EditDocument]; "1"));
SELECT @All