MS Flowform Panel Upd CatalogUser

GUIs.ZooFlow/frmConfigBasic.vb

@@ -137,7 +137,7 @@ Public Class frmConfigBasic
             End If
 
             Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{oThemeString}'
-            WHERE CAT_TITLE = '{ClassConstants.USER_CATALOG_APPLICATION_THEME}'"
+            WHERE CAT_TITLE = '{ClassConstants.USER_CATALOG_APPLICATION_THEME}' AND USR_ID = {My.Application.User.UserId}"
             If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
                 bsiInfo.Caption = "Application Theme saved!"
             End If