added AD group support to notifications system
This commit is contained in:
@ -16,6 +16,7 @@ COMPILE FUNCTION obj_Note_Ptrs(Method,Parms)
|
||||
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, obj_Notes_Sent
|
||||
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, RList, ErrMsg, obj_Notes_Sent, Update_Index
|
||||
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT NOTES_EQU
|
||||
$INSERT NOTE_PTRS_EQU
|
||||
@ -128,7 +129,7 @@ IF NotesSentKeys NE '' THEN
|
||||
END ELSE
|
||||
obj_Notes_Sent('Delete',NotesSentKeys)
|
||||
|
||||
Update_Index('NOTES_SENT','USER_ID','')
|
||||
Update_Index('NOTES_SENT','USER_ID', False$, True$)
|
||||
END
|
||||
END ELSE
|
||||
obj_Tables('UnlockRec',OtParms)
|
||||
|
Reference in New Issue
Block a user