Index: openacs-4/packages/acs-subsite/lib/applications.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/applications.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/lib/applications.adp	11 Dec 2003 21:39:55 -0000	1.3
+++ openacs-4/packages/acs-subsite/lib/applications.adp	30 Dec 2003 22:10:23 -0000	1.4
@@ -1,5 +1 @@
 <listtemplate name="applications"></listtemplate>
-
-<if @add_url@ not nil>
-  <p> <b>&raquo;</b> <a href="@add_url@">#acs-subsite.Add_new_app#</a> </p>
-</if>
Index: openacs-4/packages/acs-subsite/lib/applications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/applications.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/lib/applications.tcl	11 Dec 2003 21:39:55 -0000	1.4
+++ openacs-4/packages/acs-subsite/lib/applications.tcl	30 Dec 2003 22:10:23 -0000	1.5
@@ -1,12 +1,15 @@
 set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin -party_id [ad_conn untrusted_user_id]]
+
+set actions [list]
 if { $admin_p } {
-    set add_url [export_vars -base "[subsite::get_element -element url]admin/applications/application-add" { { return_url [ad_return_url] } }]
+    lappend actions [_ acs-subsite.Add_new_app] [export_vars -base "[subsite::get_element -element url]admin/applications/application-add" { { return_url [ad_return_url] } }] {}
 }
 
 list::create \
     -name applications \
     -multirow applications \
     -no_data "[_ acs-subsite.No_applications]" \
+    -actions $actions \
     -elements {
         instance_name {
             label "[_ acs-subsite.Name]"
Index: openacs-4/packages/acs-subsite/lib/subsites.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/subsites.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/lib/subsites.adp	11 Dec 2003 21:39:55 -0000	1.4
+++ openacs-4/packages/acs-subsite/lib/subsites.adp	30 Dec 2003 22:10:23 -0000	1.5
@@ -1,5 +1 @@
 <listtemplate name="subsites"></listtemplate>
-
-<if @add_url@ not nil>
-  <p> <b>&raquo;</b> <a href="@add_url@">#acs-subsite.Create_new_subsite#</a> </p>
-</if>
Index: openacs-4/packages/acs-subsite/lib/subsites.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/subsites.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/lib/subsites.tcl	3 Dec 2003 23:38:27 -0000	1.8
+++ openacs-4/packages/acs-subsite/lib/subsites.tcl	30 Dec 2003 22:10:23 -0000	1.9
@@ -2,14 +2,17 @@
 set pretty_plural [_ acs-subsite.subsites]
 
 set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin -party_id [ad_conn untrusted_user_id]]
+
+set actions [list]
 if { $admin_p } {
-    set add_url "[subsite::get_element -element url]admin/subsite-add"
+    lappend actions [_ acs-subsite.Create_new_subsite] "[subsite::get_element -element url]admin/subsite-add" {}
 }
 
 
 list::create \
     -name subsites \
     -multirow subsites \
+    -actions $actions \
     -no_data "[_ acs-subsite.No_pretty_plural [list pretty_plural $pretty_plural]]" \
     -elements {
         instance_name {