Index: openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	13 Sep 2009 23:54:41 -0000	1.14
+++ openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	7 Aug 2017 23:47:58 -0000	1.15
@@ -3,20 +3,7 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="package_type_dynamic_p.object_type_dynamic_p">      
-      <querytext>
-      
-	select case when exists (select 1 
-                                   from acs_object_types t
-                                  where t.dynamic_p = 't'
-                                    and t.object_type = :object_type)
-	            then 1 else 0 end
-	  from dual
-    
-      </querytext>
-</fullquery>
 
- 
 <fullquery name="package_create_attribute_list.select_all_attributes">      
       <querytext>
       
@@ -99,17 +86,6 @@
 </fullquery>
 
  
-<fullquery name="package_insert_default_comment.select_comments">      
-      <querytext>
-      
-	    select acs_object.name(:user_id) as author,
-	           sysdate as creation_date
-	      from dual
-	
-      </querytext>
-</fullquery>
-
- 
 <fullquery name="package_object_attribute_list.attributes_select">      
       <querytext>
       
@@ -196,7 +172,17 @@
       </querytext>
 </fullquery>
 
- 
+
+<fullquery name="package_generate_body.select_supertype_function_params">      
+      <querytext>
+        select args.argument_name
+          from user_arguments args
+        where args.package_name =upper(:supertype_package_name)
+          and args.object_name='NEW'
+      </querytext>
+</fullquery>
+
+
 <partialquery name="package_generate_body.body">      
       <querytext>