Domino Code Fragment

Code Name*
Reassign Form Agent		Date*
01/04/2026		Source (or email address if you prefer)*
[email protected]
IP address:.172.70.80.132
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