Moved src/modules under modules cluster.

modules/node/handler/node_response.e

@@ -0,0 +1,86 @@
+note
+	description: "Generic CMS Response for a CMS NODE."
+	date: "$Date$"
+	revision: "$Revision$"
+
+deferred class
+	NODE_RESPONSE
+
+inherit
+	CMS_RESPONSE
+		rename
+			make as make_response
+		redefine
+			custom_prepare
+		end
+
+feature {NONE} -- Initialization
+
+	make (req: WSF_REQUEST; res: WSF_RESPONSE; a_api: like api; a_node_api: like node_api)
+		do
+			node_api := a_node_api
+			make_response (req, res, a_api)
+		end
+
+feature -- Access
+
+	node_api: CMS_NODE_API
+			-- Associated node API.
+
+feature -- Generation
+
+	custom_prepare (page: CMS_HTML_PAGE)
+		do
+			if attached variables as l_variables then
+				across l_variables as c loop page.register_variable (c.item, c.key) end
+			end
+		end
+
+feature -- Helpers
+
+	node_id_path_parameter (req: WSF_REQUEST): INTEGER_64
+			-- Node id passed as path parameter for request `req'.
+		local
+			s: STRING
+		do
+			if attached {WSF_STRING} req.path_parameter ("id") as p_nid then
+				s := p_nid.value
+				if s.is_integer_64 then
+					Result := s.to_integer_64
+				end
+			end
+		end
+
+feature -- Helpers
+
+	user_local_link (u: CMS_USER): CMS_LINK
+		do
+			create {CMS_LOCAL_LINK} Result.make (u.name, user_url (u))
+		end
+
+	node_local_link (n: CMS_NODE): CMS_LINK
+		do
+			create {CMS_LOCAL_LINK} Result.make (n.title, node_url (n))
+		end
+
+	user_link (u: CMS_USER): like link
+		do
+			Result := link (u.name, "/user/" + u.id.out, Void)
+		end
+
+	node_link (n: CMS_NODE): like link
+		do
+			Result := link (n.title, "/node/" + n.id.out, Void)
+		end
+
+	user_url (u: CMS_USER): like url
+		do
+			Result := url ("/user/" + u.id.out, Void)
+		end
+
+	node_url (n: CMS_NODE): like url
+		do
+			Result := url ("/node/" + n.id.out, Void)
+		end
+
+end