Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs-oracle.xql,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs-oracle.xql	5 Jan 2010 21:26:01 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs-oracle.xql	19 Jan 2010 22:32:39 -0000	1.15
@@ -259,49 +259,38 @@
       </querytext>
 </fullquery>
 
-<fullquery name="apm_copy_descendent_params.copy_descendent_params">      
+<fullquery name="apm_copy_descendent_params.copy_descendent_param">      
   <querytext>
-
-      select apm.register_parameter(
+    begin
+      :1 := apm.register_parameter(
                null,
                :descendent_package_key,
-               ap.parameter_name,
-               ap.description,
-               ap.datatype,
-               ap.default_value,
-               ap.section_name,
-               ap.min_n_values,
-               ap.max_n_values)
-      from apm_parameters ap
-      where package_key = :package_key
-        and not exists (select 1
-                        from apm_parameters ap2
-                        where ap2.parameter_name = ap.parameter_name
-                          and ap2.package_key = :descendent_package_key)
-	
-      </querytext>
+               :parameter_name,
+               :description,
+               :datatype,
+               :default_value,
+               :section_name,
+               :min_n_values,
+               :max_n_values)
+    end;
+  </querytext>
 </fullquery>
 
-<fullquery name="apm_copy_inherited_params.copy_inherited_params">      
+<fullquery name="apm_copy_inherited_params.copy_inherited_param">      
   <querytext>
-      select apm.register_parameter(
+    begin
+      :1 := apm.register_parameter(
                null,
-               :package_key,
-               ap.parameter_name,
-               ap.description,
-               ap.datatype,
-               ap.default_value,
-               ap.section_name,
-               ap.min_n_values,
-               ap.max_n_values)
-      from apm_parameters ap
-      where package_key = :inherited_package_key
-        and not exists (select 1
-                        from apm_parameters ap2
-                        where ap2.parameter_name = ap.parameter_name
-                          and ap2.package_key = :package_key)
-	
-      </querytext>
+               :new_package_key,
+               :parameter_name,
+               :description,
+               :datatype,
+               :default_value,
+               :section_name,
+               :min_n_values,
+               :max_n_values)
+    end;
+  </querytext>
 </fullquery>
 
 <fullquery name="apm_package_upgrade_p.apm_package_upgrade_p">