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]"