indexing
	description: "Internal API interface to issue services."
	author: "Dennis Rietmann <dennis.rietmann@gmail.com>"
	date: "$Date$"
	revision: "$Revision$"

class
	INTERNAL_ISSUE_SERVICE

inherit
	ISSUE_SERVICE
		redefine
			make,
			self_register
		end

create
	make

feature {NONE} -- Initialization

	make (a_node: O_NODE_CLIENT) is
			-- Creates the service
	do
		precursor(a_node)
		is_internal := true
	end

feature -- Initialisation

	self_register is
			-- Register all actions for this service
		do
			register_with_help (agent issue_add, issue_add_name, "Add issue.")
			register_with_help (agent issue_update, issue_update_name, "Update issue.")
			register_with_help (agent issue_comment, issue_comment_name, "Add issue reply.")
			register_with_help (agent issue_comment_extended, issue_comment_extended_name, "Add issue reply with new tags.")
		end

end