Index: openacs-4/packages/acs-subsite/lib/services.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/Attic/services.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/lib/services.adp	8 Oct 2003 07:32:42 -0000	1.1
@@ -0,0 +1 @@
+<p><listtemplate name="services"></listtemplate></p>
Index: openacs-4/packages/acs-subsite/lib/services.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/Attic/services.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/lib/services.tcl	8 Oct 2003 07:32:42 -0000	1.1
@@ -0,0 +1,42 @@
+set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin]
+
+list::create \
+    -name services \
+    -multirow services \
+    -no_data "No services" \
+    -elements {
+        instance_name {
+            label "Name"
+            link_url_eval {$name/}
+        }
+    }
+
+set services [list]
+
+foreach url [site_node::get_children -package_type apm_service -node_id [subsite::get_element -element node_id]] {
+    array unset node 
+    array set node [site_node::get_from_url -url $url -exact]
+
+    if { ![string equal $node(package_key) "acs-subsite"] && [permission::permission_p -object_id $node(object_id) -privilege read] } {
+        lappend services [list \
+                                  $node(instance_name) \
+                                  $node(node_id) \
+                                  $node(name) \
+                                  $node(object_id)]
+    }
+}
+
+# Sort them by instance_name
+set services [lsort -index 0 $services]
+
+multirow create services instance_name node_id name package_id read_p
+
+foreach elm $services {
+    multirow append services \
+        [lindex $elm 0] \
+        [lindex $elm 1] \
+        [lindex $elm 2] \
+        [lindex $elm 3] \
+        [lindex $elm 4]
+}
+