Index: openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql	17 May 2003 09:58:37 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql	14 Dec 2003 11:57:27 -0000	1.5
@@ -59,5 +59,17 @@
       </querytext>
 </fullquery>
 
+    <fullquery name="subsite::get_application_options.package_types">
+        <querytext>
+
+    select pretty_name, package_key
+    from   apm_package_types
+    where  not (apm_package.singleton_p(package_key) = 1 and
+                apm_package.num_instances(package_key) >= 1)
+    and    package_key != 'acs-subsite'
+    order  by upper(pretty_name)
+
+        </querytext>
+    </fullquery>
  
 </queryset>
Index: openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql	17 May 2003 09:58:37 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql	14 Dec 2003 11:57:28 -0000	1.7
@@ -61,5 +61,17 @@
       </querytext>
 </fullquery>
 
+    <fullquery name="subsite::get_application_options.package_types">
+        <querytext>
+
+    select pretty_name, package_key
+    from   apm_package_types
+    where  not (apm_package__singleton_p(package_key) = 1 and
+                apm_package__num_instances(package_key) >= 1)
+    and    package_key != 'acs-subsite'
+    order  by upper(pretty_name)
+
+        </querytext>
+    </fullquery>
  
 </queryset>
Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	11 Dec 2003 21:39:55 -0000	1.18
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	14 Dec 2003 11:57:28 -0000	1.19
@@ -655,3 +655,9 @@
     }
     return $master_template_options
 }
+
+ad_proc -public subsite::get_application_options {} {
+    Gets options list for applications to install
+} {
+    return [db_list_of_lists package_types {}]
+}
\ No newline at end of file