Zooflow: WIP

Modules.ZooFlow/State/UserState.vb

@@ -17,19 +17,28 @@ Namespace State
         Public Property MachineName As String
         Public Property DateFormat As String
         Public Property Language As String
-        Public Property LanguageID As Int16
+        Public Property LanguageId As Integer
         Public Property IsAdmin As Boolean = False
 
         Public Property HideBasicConfig As Boolean = False
 
         ''' <summary>
-        ''' Initialize user object with values that can be read from the environment
+        ''' Initialize user object with values that can be read from the environment. Only meant for Global Application State
         ''' </summary>
         Public Sub New()
             Language = Thread.CurrentThread.CurrentCulture.Name
             UserName = System.Environment.UserName
             MachineName = System.Environment.MachineName
         End Sub
+
+        ''' <summary>
+        ''' Initialize user object with user id. Mandatory for sending user data between systems.
+        ''' </summary>
+        ''' <param name="pUserId"></param>
+        Public Sub New(pUserId As Integer)
+            MyBase.New()
+            UserId = pUserId
+        End Sub
     End Class
 End Namespace