Updated navigation templte to include current user.

Updated CMS_NODE, CMS_USER.
Added USER_PROFILE and USER_ROLE
Updated new USER_DATA_PROVIDER and NODE_DATA_PROVIDER to support new features.
Added ROLE_DATA_PROVIDER.
Updated test cases.
Updated MySQL database schema.

persistence/implementation/common/model/cms_user.e

@@ -6,6 +6,10 @@ note
 class
 	CMS_USER
 
+inherit
+
+	DEBUG_OUTPUT
+
 create
 	make
 
@@ -15,6 +19,9 @@ feature {NONE} -- Initialization
 			-- Create an object with name `a_name'.
 		do
 			name := a_name
+			create creation_date.make_now_utc
+		ensure
+			name_set: name = a_name
 		end
 
 feature -- Access
@@ -31,6 +38,48 @@ feature -- Access
 	email: detachable READABLE_STRING_32
 		-- User email.
 
+	profile: detachable CMS_USER_PROFILE
+		-- User profile.
+
+	creation_date: DATE_TIME
+		-- Creation date.
+
+	last_login_date: detachable DATE_TIME
+		-- User last login.
+
+	data: detachable STRING_TABLE [detachable ANY]
+		-- Additional user's data.
+
+	data_item (k: READABLE_STRING_GENERAL): detachable ANY
+			-- Additional item data.
+		do
+			if attached data as l_data then
+				Result := l_data.item (k)
+			end
+		end
+
+feature -- Status report
+
+	has_id: BOOLEAN
+		do
+			Result := id > 0
+		end
+
+	has_email: BOOLEAN
+		do
+			Result := attached email as e and then not e.is_empty
+		end
+
+	debug_output: STRING
+		do
+			Result := name
+		end
+
+	same_as (u: detachable CMS_USER): BOOLEAN
+		do
+			Result := u /= Void and then id = u.id
+		end
+
 feature -- Change element
 
 	set_id (a_id: like id)
@@ -65,4 +114,53 @@ feature -- Change element
 			email_set: email = m
 		end
 
+	set_profile (prof: like profile)
+			-- Set `profile' with `prof'.
+		do
+			profile := prof
+		ensure
+			profile_set: profile = prof
+		end
+
+	set_data_item (k: READABLE_STRING_GENERAL; d: like data_item)
+		local
+			l_data: like data
+		do
+			l_data := data
+			if l_data = Void then
+				create l_data.make (1)
+				data := l_data
+			end
+			l_data.force (d, k)
+		end
+
+	remove_data_item (k: READABLE_STRING_GENERAL)
+		do
+			if attached data as l_data then
+				l_data.remove (k)
+			end
+		end
+
+	set_profile_item (k: READABLE_STRING_8; v: READABLE_STRING_8)
+		local
+			prof: like profile
+		do
+			prof := profile
+			if prof = Void then
+				create prof.make
+				profile := prof
+			end
+			prof.force (v, k)
+		end
+
+	set_last_login_date (dt: like last_login_date)
+		do
+			last_login_date := dt
+		end
+
+	set_last_login_date_now
+		do
+			set_last_login_date (create {DATE_TIME}.make_now_utc)
+		end
+
 end