indexing
	description: "Class which allows EiffelStore to retrieve/store%
	      %the content relative to a column of the table WORKITEM_COMMENT"

class
	WORKITEM_COMMENT

inherit
	ANY
		redefine
			out
		end

create
	make

feature -- Access

	workitem_id: INTEGER
			-- Auto-generated.

	title: STRING
			-- Auto-generated.

	text: STRING
			-- Auto-generated.

	reference_url: STRING
			-- Auto-generated.

	is_new: STRING
			-- Auto-generated.

	comment_type: STRING
			-- Auto-generated.

feature -- Initialization

	make is
		do
			workitem_id := 0
			title := ""
			text := ""
			reference_url := ""
			is_new := "true"
			comment_type := ""
		end

feature -- Settings

	set_workitem_id (a_workitem_id: INTEGER) is
			--Set the value of workitem_id
		require
			value_exists: a_workitem_id >= 0
		do
			workitem_id := a_workitem_id
		ensure
			workitem_id_set: a_workitem_id = workitem_id
		end

	set_title (a_title: STRING) is
			--Set the value of title
		require
			value_exists: a_title /= Void
		do
			title := a_title
		ensure
			title_set: a_title = title
		end

	set_text (a_text: STRING) is
			--Set the value of text
		require
			value_exists: a_text /= Void
		do
			text := a_text
		ensure
			text_set: a_text = text
		end

	set_reference_url (a_reference_url: STRING) is
			--Set the value of reference_url
		require
			value_exists: a_reference_url /= Void
		do
			reference_url := a_reference_url
		ensure
			reference_url_set: a_reference_url = reference_url
		end

	set_is_new (a_is_new: STRING) is
			--Set the value of is_new
		require
			value_exists: a_is_new /= Void
		do
			is_new := a_is_new
		ensure
			is_new_set: a_is_new = is_new
		end

	set_comment_type (a_comment_type: STRING) is
			--Set the value of comment type
		require
			values_exists: a_comment_type /= Void
		do
			comment_type := a_comment_type
		ensure
			comment_type_set: a_comment_type = comment_type
		end

feature -- Output

	out: STRING is
		do
			Result := ""
			Result.append (workitem_id.out + "%N")
			Result.append (title.out + "%N")
			Result.append (text.out + "%N")
			Result.append (reference_url.out + "%N")
			Result.append (is_new.out + "%N")
			Result.append (comment_type + "%N")
		end

end -- class WORKITEM_WIKI