Index: openacs-4/packages/acs-subsite/www/admin/subsite-convert-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/subsite-convert-type.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/subsite-convert-type.tcl	26 Nov 2008 11:27:29 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/subsite-convert-type.tcl	17 Mar 2009 01:11:07 -0000	1.2
@@ -11,7 +11,7 @@
 
 set context [list $page_title]
 
-set subsite_package_options [subsite::util::get_package_descendent_options [ad_conn package_key]]
+set subsite_package_options [apm::get_package_descendent_options [ad_conn package_key]]
 
 if { [llength $subsite_package_options] == 0 } {
     return .
@@ -26,7 +26,10 @@
     }
 } -on_submit {
     if { $package_key ne [ad_conn package_key] } {
-        subsite::util::convert_type -new_package_key $package_key
+        apm::convert_type \
+            -package_id [ad_conn package_id] \
+            -old_package_key [ad_conn package_key] \
+            -new_package_key $package_key
     }
     ad_returnredirect .
     ad_script_abort