Index: openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	16 Oct 2003 13:32:12 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	14 Dec 2003 11:56:54 -0000	1.8
@@ -12,14 +12,16 @@
 set page_title "New Application"
 set context [list [list "." "Applications"] $page_title]
 
-set packages [db_list_of_lists package_types {}]
+set packages [subsite::get_application_options]
 
 if { [ad_form_new_p -key node_id] } {
     set focus application.package_key
 } else {
     set focus application.instance_name
 }
 
+set multiple_add_url [export_vars -base multiple-add { return_url }]
+
 ad_form -name application -cancel_url . -form {
     {return_url:text(hidden),optional}
     {node_id:key}