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 -N -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql	2 Feb 2010 23:35:28 -0000	1.12
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql	14 Jun 2018 12:56:48 -0000	1.13
@@ -34,21 +34,6 @@
 </fullquery>
 
  
-<fullquery name="subsite::util::sub_type_exists_p.sub_type_exists_p">      
-      <querytext>
-      
-	select case 
-                 when exists (select 1 from acs_object_types 
-                              where supertype = :object_type)
-                 then 1 
-                 else 0 
-               end
-        
-    
-      </querytext>
-</fullquery>
-
- 
 <fullquery name="subsite::util::object_type_path_list.select_object_type_path">      
       <querytext>
 
@@ -61,20 +46,6 @@
       </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    not implements_subsite_p
-    and    package_type = 'apm_application'
-    order  by upper(pretty_name)
-
-        </querytext>
-    </fullquery>
- 
     <partialquery name="subsite::get_url.orderby">
         <querytext>
         order by case when host = :search_vhost then 1