Merged CMS based on concurrent EWF (i.e ewf_v1) with blog branch.

examples/demo/modules/blog/cms_blog_module.e

@@ -14,7 +14,6 @@ inherit
 		redefine
 			register_hooks,
 			initialize,
-			is_installed,
 			install,
 			blog_api
 		end
@@ -61,12 +60,6 @@ feature {CMS_API} -- Module Initialization
 
 feature {CMS_API} -- Module management
 
-	is_installed (api: CMS_API): BOOLEAN
-			-- Is Current module installed?
-		do
-			Result := attached api.storage.custom_value ("is_initialized", "module-" + name) as v and then v.is_case_insensitive_equal_general ("yes")
-		end
-
 	install (api: CMS_API)
 		local
 			sql: STRING
@@ -86,7 +79,7 @@ CREATE TABLE "blog_post_nodes"(
 						api.logger.put_error ("Could not initialize database for blog module", generating_type)
 					end
 				end
-				api.storage.set_custom_value ("is_initialized", "module-" + name, "yes")
+				Precursor (api)
 			end
 		end
 
@@ -150,8 +143,8 @@ feature -- Hooks
 		local
 			lnk: CMS_LOCAL_LINK
 		do
-			-- Add the link to the blog to the main menu
-			create lnk.make ("Blogs", "/blogs/")
+				-- Add the link to the blog to the main menu
+			create lnk.make ("Blogs", "blogs/")
 			a_menu_system.primary_menu.extend (lnk)
 		end
 end