Index: openacs-4/packages/acs-subsite/www/admin/applications/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/index.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/applications/index.tcl	28 Aug 2003 09:41:40 -0000	1.2
@@ -0,0 +1,55 @@
+ad_page_contract {
+    Applications
+
+    @author Lars Pind (lars@collaboraid.biz)
+    @creation-date 2003-06-02
+    @cvs-id $Id: index.tcl,v 1.2 2003/08/28 09:41:40 lars Exp $
+}
+
+set page_title "Applications"
+set context [list $page_title]
+
+# Get the subsite node ID
+set subsite_url [site_node_closest_ancestor_package_url]
+array set subsite_sitenode [site_node::get -url $subsite_url]
+set subsite_node_id $subsite_sitenode(node_id)
+
+db_multirow applications select_applications {
+    select n.node_id, 
+           n.name, 
+           p.package_id,
+           p.instance_name,
+           pt.pretty_name as package_pretty_name
+    from   site_nodes n,
+           apm_packages p,
+           apm_package_types pt
+    where  n.parent_id = :subsite_node_id
+    and    p.package_id = n.object_id
+    and    pt.package_key = p.package_key
+}
+
+list::create \
+    -name applications \
+    -multirow applications \
+    -key node_id \
+    -actions { 
+        "Add application" application-add "Add new application"
+    } \
+    -bulk_actions {
+        "Delete" application-delete "Delete selected applications"
+    } \
+    -elements {
+        instance_name {
+            label "Name"
+            link_url_eval {../../$name/}
+        }
+        name {
+            label "URL"
+        }
+        package_pretty_name {
+            label "Application"
+        }
+    }
+
+
+