note
	description: "[
				User profile used to extend information associated with a {CMS_USER}.
			]"
	date: "$Date$"
	revision: "$Revision$"

class
	CMS_USER_PROFILE

inherit
	TABLE_ITERABLE [READABLE_STRING_8, READABLE_STRING_GENERAL]

create
	make

feature {NONE} -- Initialization

	make
			-- Create Current profile.
		do
			create items.make (0)
		end

feature -- Access

	item (k: READABLE_STRING_GENERAL): detachable READABLE_STRING_8
			-- Profile item associated with key `k'.
		do
			Result := items.item (k)
		end

feature -- Change

	force (v: READABLE_STRING_8; k: READABLE_STRING_GENERAL)
			-- Associated value `v' with key `k'.
		do
			items.force (v, k)
		end

feature -- Access

	new_cursor: TABLE_ITERATION_CURSOR [READABLE_STRING_8, READABLE_STRING_GENERAL]
			-- Fresh cursor associated with current structure
		do
			Result := items.new_cursor
		end

feature {NONE} -- Implementation				

	items: STRING_TABLE [READABLE_STRING_8]

;note
	copyright: "2011-2014, Javier Velilla, Jocelyn Fiat, Eiffel Software and others"
	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
end