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

class
	HTML_CHANGE_EMAIL

inherit

	TEMPLATE_CHANGE_EMAIL
		rename
			make as make_template
		end
create
	make

feature {NONE} --Initialization

	make (a_host: READABLE_STRING_GENERAL; a_user: detachable ANY; a_view: ESA_EMAIL_VIEW)
			-- Initialize `Current'.
		do
			debug
				log.write_information (generator + ".make render template: change_email.tpl")
			end
				-- Set folder to HTML
			set_template_folder (html_path)
				-- Build common properties
			make_template (a_host, a_user, a_view, "change_email.tpl" )
				-- Process current template
			process
		end

end