Index: openacs-4/packages/cms/www/modules/sitemap/type-register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/type-register.tcl,v
diff -u -N -r1.2 -r1.2.14.1
--- openacs-4/packages/cms/www/modules/sitemap/type-register.tcl	25 May 2001 02:15:56 -0000	1.2
+++ openacs-4/packages/cms/www/modules/sitemap/type-register.tcl	31 Aug 2006 19:59:06 -0000	1.2.14.1
@@ -1,27 +1,25 @@
-# register content types from clipboard to a folder
+ad_page_contract {
+    Register content types from clipboard to a folder
 
-request create
-request set_param folder_id -datatype integer
+    @author Michael Steigman
+    @creation-date October 2004
+} {
+    { folder_id:integer }
+}
 
+permission::require_permission -party_id [auth::require_login] \
+    -object_id $folder_id -privilege write
 
-set clip [clipboard::parse_cookie]
-set marked_types [clipboard::get_items $clip "types"]
+set clip [cms::clipboard::parse_cookie]
+set marked_types [cms::clipboard::get_items $clip "types"]
     
 db_transaction {
     foreach type $marked_types {
-
-        db_exec_plsql register_type "begin
-           content_folder.register_content_type(
-               folder_id        => :folder_id,
-               content_type     => :type,
-               include_subtypes => 'f'
-           );
-         end;"
+	content::folder::register_content_type -folder_id $folder_id \
+	    -content_type $type -include_subtypes f
     }
 }
 
-cms_folder::flush_registered_types $folder_id
+cms::clipboard::free $clip
 
-clipboard::free $clip
-
-forward "attributes?folder_id=$folder_id"
+ad_returnredirect [export_vars -base folder-attributes folder_id]