Index: openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql	29 Jan 2003 15:41:25 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql	1 May 2003 20:40:53 -0000	1.9
@@ -177,5 +177,15 @@
       </querytext>
 </fullquery>
 
+<fullquery name="apm_application_new_checkbox.package_types">
+      <querytext>
+        select package_key, pretty_name
+        from apm_package_types
+        where not (apm_package.singleton_p(package_key) = 1 and
+                   apm_package.num_instances(package_key) >= 1)
+        order by pretty_name
+      </querytext>
+</fullquery>
+
  
 </queryset>
Index: openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql	29 Jan 2003 15:41:25 -0000	1.11
+++ openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql	1 May 2003 20:40:54 -0000	1.12
@@ -156,4 +156,16 @@
       </querytext>
 </fullquery>
 
+<fullquery name="apm_application_new_checkbox.package_types">
+      <querytext>
+         select package_key,
+         pretty_name
+         from apm_package_types
+         where not (apm_package__singleton_p(package_key) = 1 and
+                    apm_package__num_instances(package_key) >= 1)
+         order by pretty_name
+      </querytext>
+</fullquery>
+
+
 </queryset>
Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.47 -r1.48
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	1 May 2003 09:50:21 -0000	1.47
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	1 May 2003 20:40:53 -0000	1.48
@@ -1445,13 +1445,7 @@
 } {
     set html_string "<select name=package_key>"
 
-    db_foreach package_types {
-      select package_key, pretty_name
-      from apm_package_types
-      where not (apm_package.singleton_p(package_key) = 1 and
-            apm_package.num_instances(package_key) >= 1)
-      order by pretty_name
-    } {
+    db_foreach package_types {} {
       append html_string "<option value=$package_key>$pretty_name</option>\n"
     }