note
	description: "Summary description for {ES_CLOUD_ORGANIZATION}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	ES_CLOUD_ORGANIZATION

create
	make,
	make_with_id

feature {NONE} -- Initialization

	make (a_org_id: like id; a_name: READABLE_STRING_GENERAL)
		do
			id := a_org_id
			create name.make_from_string_general (a_name)
		end

	make_with_id (a_org_id: like id)
		do
			id := a_org_id
			create name.make_from_string_general ("org#" + a_org_id.out)
		end

feature -- Access

	id: INTEGER_64

	name: IMMUTABLE_STRING_32

	title: detachable IMMUTABLE_STRING_32

	description: detachable IMMUTABLE_STRING_32

	data: detachable IMMUTABLE_STRING_32
		do
		end

feature -- Query

	title_or_name: READABLE_STRING_32
		do
			if attached title as t then
				Result := t
			else
				Result := name.as_string_32
			end
		end

feature -- Constants

	role_owner_id: INTEGER = 8
	role_manager_id: INTEGER = 4
	role_member_id: INTEGER = 1
	role_none_id: INTEGER = 0

feature -- Status

	has_id: BOOLEAN
		do
			Result := id /= 0
		end

feature -- Element change

	set_title (s: detachable READABLE_STRING_GENERAL)
		do
			if s = Void then
				title := Void
			else
				create title.make_from_string_general (s)
			end
		end

	set_description (d: detachable READABLE_STRING_GENERAL)
		do
			if d = Void then
				description := Void
			else
				create description.make_from_string_general (d)
			end
		end

	set_data (a_data: detachable READABLE_STRING_GENERAL)
		local
--			s: READABLE_STRING_GENERAL
		do
--			if a_data /= Void then
--				across
--					a_data.split (';') as ic
--				loop
--					s := ic.item
--					if s.starts_with ("foo.bar=") then
--						v := s.substring (s.index_of ('=', 1) + 1, s.count).to_natural
--					end
--				end
--			end
		end

end