Index: openacs-4/packages/acs-tcl/tcl/apm-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.xql,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/acs-tcl/tcl/apm-procs.xql	25 Nov 2008 17:08:50 -0000	1.24
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.xql	17 Mar 2009 01:11:07 -0000	1.25
@@ -288,4 +288,48 @@
     </querytext>
   </fullquery>  
 
+  <fullquery name="apm::get_package_descendent_options.get">      
+    <querytext>
+      select pretty_name, package_key
+      from apm_package_types
+      where implements_subsite_p = 't'
+        and package_key in ($in_clause)
+      order by pretty_name
+    </querytext>
+  </fullquery>  
+
+  <fullquery name="apm::convert_type.update_package_key">      
+    <querytext>
+      update apm_packages
+      set package_key = :new_package_key
+      where package_id = :package_id
+    </querytext>
+  </fullquery>  
+
+  <fullquery name="apm::convert_type.get_params">      
+    <querytext>
+      select parameter_name, parameter_id
+      from apm_parameters
+      where package_key = :old_package_key
+    </querytext>
+  </fullquery>  
+
+  <fullquery name="apm::convert_type.get_new_parameter_id">      
+    <querytext>
+      select parameter_id as new_parameter_id
+      from apm_parameters
+      where package_key = :new_package_key
+        and parameter_name = :parameter_name
+    </querytext>
+  </fullquery>  
+
+  <fullquery name="apm::convert_type.update_param">      
+    <querytext>
+      update apm_parameter_values
+      set parameter_id = :new_parameter_id
+      where parameter_id = :parameter_id
+        and package_id = :package_id
+    </querytext>
+  </fullquery>  
+
 </queryset>