Index: openacs-4/www/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/Attic/index-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/www/index-oracle.xql	30 Jan 2003 22:51:28 -0000	1.2
+++ openacs-4/www/index-oracle.xql	7 Apr 2003 12:16:41 -0000	1.3
@@ -7,14 +7,17 @@
 
   <fullquery name="site_nodes">
     <querytext>
-  select site_node.url(node_id) as url, acs_object.name(object_id) as name
-      from site_nodes
+  select site_node.url(node_id) as url, acs_object.name(object_id) as name,
+         apm_package_types.initial_install_p
+      from site_nodes, apm_packages, apm_package_types
       where parent_id = site_node.node_id('/')
       and object_id is not null
       and acs_permission.permission_p(
           object_id, 
           nvl(:user_id, acs.magic_object_id('the_public')), 
           'read') = 't'
+      and apm_packages.package_id = site_nodes.object_id
+      and apm_package_types.package_key = apm_packages.package_key
     </querytext>
   </fullquery>
 
Index: openacs-4/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/Attic/index-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/www/index-postgresql.xql	30 Jan 2003 22:51:28 -0000	1.2
+++ openacs-4/www/index-postgresql.xql	7 Apr 2003 12:16:41 -0000	1.3
@@ -7,14 +7,17 @@
 
   <fullquery name="site_nodes">
     <querytext>
-  select site_node__url(node_id) as url, acs_object__name(object_id) as name
-      from site_nodes
+  select site_node__url(node_id) as url, acs_object__name(object_id) as name,
+         apm_package_types.initial_install_p  
+      from site_nodes, apm_packages, apm_package_types
       where parent_id = site_node__node_id('/',NULL)
       and object_id is not null
       and acs_permission__permission_p(
           object_id, 
           coalesce(:user_id, acs__magic_object_id('the_public')), 
           'read') = 't'
+      and apm_packages.package_id = site_nodes.object_id
+      and apm_package_types.package_key = apm_packages.package_key
     </querytext>
   </fullquery>
 
Index: openacs-4/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/Attic/index.adp,v
diff -u -r1.9 -r1.10
--- openacs-4/www/index.adp	5 Apr 2003 09:21:57 -0000	1.9
+++ openacs-4/www/index.adp	7 Apr 2003 12:16:41 -0000	1.10
@@ -14,7 +14,7 @@
 
       <p>
       Thank you for using our software. Please write to us at the <a
-      href="http://openacs.org/forums/forum-view?forum_id=14013">OpenACS bboard</a> to let
+      href="http://openacs.org/forums">OpenACS forums</a> to let
       us know of your experience with installing and using OpenACS. 
       </p>
       
@@ -35,11 +35,14 @@
       system:
       </p>
 
-      <ul>
-        <multiple name=nodes>
-          <li><a href="@nodes.url@">@nodes.name@</a></li>
-        </multiple>
-      </ul>
+      <multiple name=nodes>
+        <if @nodes.initial_install_p@ eq "t"> <h3> System Services </h3></if><else><h3>Installed Packages</h3></else>
+        <ul>
+          <group column="initial_install_p">
+            <li><a href="@nodes.url@">@nodes.name@</a></li>
+          </group>
+        </ul>
+      </multiple>
       
       <if @name@ not nil>
         If you like, you can go directly to <a href="@home_url@">@name@'s
Index: openacs-4/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/Attic/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/www/index.tcl	2 Sep 2002 11:18:09 -0000	1.3
+++ openacs-4/www/index.tcl	7 Apr 2003 12:16:41 -0000	1.4
@@ -57,17 +57,7 @@
     set remember_password ""
 }
 
-db_multirow nodes site_nodes {
-    select site_node.url(node_id) as url, 
-    acs_object.name(object_id) as name
-      from site_nodes
-      where parent_id = site_node.node_id('/')
-      and object_id is not null
-      and acs_permission.permission_p(
-          object_id, 
-          nvl(:user_id, acs.magic_object_id('the_public')), 
-          'read') = 't'
-}
+db_multirow nodes site_nodes {}
 
 if { ![empty_string_p $user_id]} {
     # The user is loged in.