Index: openacs-4/packages/cms/www/modules/sitemap/type-unregister.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/type-unregister.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/cms/www/modules/sitemap/type-unregister.tcl	16 Nov 2004 22:32:50 -0000	1.4
+++ openacs-4/packages/cms/www/modules/sitemap/type-unregister.tcl	31 Aug 2006 19:59:06 -0000	1.4.2.1
@@ -8,10 +8,12 @@
     { content_type:multiple }
 }
 
+permission::require_permission -party_id [auth::require_login] \
+    -object_id $folder_id -privilege write
+
 foreach type $content_type {
-    db_exec_plsql unregister ""
+    content::folder::unregister_content_type -folder_id $folder_id \
+	-content_type $type -include_subtypes f
 }
 
-cms_folder::flush_registered_types $folder_id
-
-ns_returnredirect "attributes?folder_id=$folder_id"
+ad_returnredirect [export_vars -base folder-attributes folder_id]