ecdemo/commit

required updates after removing ecdemo specific stuff from amalgame

diff --git a/config-available/econnect.pl b/config-available/econnect.pl
index 5b5ee02..1ce7356 100644
--- a/config-available/econnect.pl
+++ b/config-available/econnect.pl
@@ -5,11 +5,12 @@
 :- use_module(library(http/html_head)).
 :- use_module(library(semweb/rdf_library)).
 :- use_module(skin(cliopatria)).
+:- use_module(components(simple_search)).
 
 /** <module> Configure Econnect demo home Page
 */
 
-:- use_module(applications(selecter)).
+:- use_module(applications(startpage)).
 
 % load the RDF Manifest files to enable the datacloud generation
 
@@ -20,7 +21,7 @@
 :- html_resource(cliopatria,
                  [ virtual(true),
                    requires([ css('econnect.css'),
-		   	      css('ecdemo.css')
+			      css('ecdemo.css')
                             ])
 		 ]).
 
@@ -33,7 +34,7 @@
 home(_Request) :-
 	http_absolute_location(icons('econnect-logo-big.jpg'), LogoImg, []),
 	format(atom(HomeStyle), 'div.ag_search { background-image: url(~w);',[LogoImg]),
-	reply_html_page(amalgame(search),
+	reply_html_page(ecdemo(search),
 			[title('Amalgame: home'),
 			 style(HomeStyle)
 			],
@@ -62,3 +63,23 @@ logo -->
 	      )
 	    ).
 
+user:body(ecdemo(search), Body) -->
+        {
+         http_link_to_id(http_amalgame_main_page, [], BackOfficeLink)
+        },
+        html_requires(cliopatria),
+        html(body(class(['yui-skin-sam', ag_search, cliopatria]),
+                  [
+                    div(class(ag_search),
+                        [
+                         \simple_search_form,
+                         div(class(content), Body)
+                        ]),
+                        br(clear(all)),
+                        div(class(footer),
+                            \(cliopatria:server_address)
+                        ),
+                        div([class(backoffice)],
+                            [a(href(BackOfficeLink), 'back office')
+                            ])
+                  ])).