added AD group support to notifications system

SYSPROG/STPROC/DATABASE_SERVICES.txt

@@ -666,7 +666,6 @@ Service SearchIndex(TableName, ColumnName, SearchValue, UpdateIndex)
 
     ServiceKeyID   := '*' : TableName : '*' : ColumnName : '*' : SearchValue
     ServiceKeyID    = SRP_Encode(ServiceKeyID, 'BASE64')
-*    KeyIDList       = Memory_Services('GetValue', ServiceKeyID, True$, 5)
     KeyIDList       = ''
 
     If TableName NE '' AND ColumnName NE '' AND SearchValue NE '' then
@@ -674,7 +673,7 @@ Service SearchIndex(TableName, ColumnName, SearchValue, UpdateIndex)
             DictTableHandle = Database_Services('GetTableHandle', 'DICT.' : TableName)
             If Error_Services('NoError') then
                 Set_Status(0)
-                If UpdateIndex then Update_Index(TableName, ColumnName 0)
+                If UpdateIndex then Update_Index(TableName, ColumnName, False$, True$)
                 Set_Status(0)
                 Flag    = ''
                 Btree.Extract(ColumnName : @VM : SearchValue : @FM, Tablename, DictTableHandle, KeyIDList, 'S', Flag)
@@ -1045,3 +1044,4 @@ end service
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 
 
+

SYSPROG/STPROC/SQL_SERVICES.txt

@@ -3548,10 +3548,10 @@ Service ProcessSQLRequests()
             GoSub ClearCursors
             Sentence    = 'SELECT ':Tablename:' WITH RESPONSE_DATE EQ "" BY REQUEST_DATE BY REQUEST_TIME'
             Set_Status(0)
-            Update_Index(Tablename, 'REQUEST_DATE', 0)
-            Update_Index(Tablename, 'REQUEST_TIME', 0)
-            Update_Index(Tablename, 'RESPONSE_DATE', 0)
-            Update_Index(Tablename, 'RESPONSE_TIME', 0)
+            Update_Index(Tablename, 'REQUEST_DATE', False$, True$)
+            Update_Index(Tablename, 'REQUEST_TIME', False$, True$)
+            Update_Index(Tablename, 'RESPONSE_DATE', False$, True$)
+            Update_Index(Tablename, 'RESPONSE_TIME', False$, True$)
             RList(Sentence, TARGET_ACTIVELIST$, '', '', '')
             EOF         = False$
             Loop
@@ -3640,3 +3640,4 @@ return
 
 
 
+

SYSPROG/STPROC/TEMP.txt

@@ -1,24 +1,26 @@
 Compile Subroutine Temp(dummy)
-
+Declare Function datetime
 Debug
 
-Open 'SYSENV' To hSysenv Then 
-     Open 'TEMP_SYSENV' To hNewSysenv Then
-          Select hSysenv
-          EOF = 0
-          Loop
-          Readnext Key Else EOF = 1
-          Until EOF
-               //If IndexC(Key, 'SRP', 1) then
-                    Read Rec From hSysenv, Key Then
-                         Write Rec To hNewSysenv, Key Else 
-                              Debug
-                         end
-                    End
-               //end
-          Repeat
-     End
-End
+dt = datetime()
+
+*Open 'SYSENV' To hSysenv Then 
+*     Open 'TEMP_SYSENV' To hNewSysenv Then
+*          Select hSysenv
+*          EOF = 0
+*          Loop
+*          Readnext Key Else EOF = 1
+*          Until EOF
+*               //If IndexC(Key, 'SRP', 1) then
+*                    Read Rec From hSysenv, Key Then
+*                         Write Rec To hNewSysenv, Key Else 
+*                              Debug
+*                         end
+*                    End
+*               //end
+*          Repeat
+*     End
+*End
 
 
 return