Index: openacs-4/packages/cms/www/modules/sitemap/attributes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/attributes.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/cms/www/modules/sitemap/attributes.tcl	6 Apr 2005 00:20:59 -0000	1.8
+++ openacs-4/packages/cms/www/modules/sitemap/attributes.tcl	13 Apr 2005 20:15:19 -0000	1.9
@@ -18,8 +18,8 @@
     set folder_resolved_id $folder_id
 }
 
-# permissions check - user must have cm_examine on this folder
-#content::check_access $folder_id cm_examine -user_id [User::getID]
+permission::require_permission -party_id [auth::require_login] \
+    -object_id $folder_id -privilege read
 
 # Get the registered types for the folder 
 # (besides symlinks/templates/subfolders)
@@ -78,8 +78,8 @@
     -on_request {}\
     -on_submit {
 
-        content::check_access $folder_resolved_id cm_write \
-	    -user_id [auth::require_login]
+	permission::require_permission -party_id [auth::require_login] \
+	    -object_id $folder_id -privilege write
 
         if { [string equal $allow_subfolders "t"] } {
             set subfolder_method "register_content_type"
@@ -96,6 +96,6 @@
         db_exec_plsql content ""
     } \
     -after_submit {
-	ad_returnredirect "attributes?folder_id=$folder_id&mount_point=$mount_point"
+	ad_returnredirect [export_vars -base attributes {folder_id mount_point}]
 	ad_script_abort
     }