Index: openacs-4/packages/cms/www/modules/items/unrelate-item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/unrelate-item.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/cms/www/modules/items/unrelate-item.tcl	16 Nov 2004 22:32:48 -0000	1.6
+++ openacs-4/packages/cms/www/modules/items/unrelate-item.tcl	13 Apr 2005 20:15:19 -0000	1.7
@@ -10,12 +10,6 @@
     { passthrough "[content::assemble_passthrough mount_point]" }
 }
 
-# request create
-# request set_param rel_id -datatype integer
-# request set_param mount_point -datatype keyword -value "sitemap"
-# request set_param return_url -datatype text -value "index"
-# request set_param passthrough -datatype text -value [content::assemble_passthrough mount_point]
-
 set item_id ""
 foreach rel $rel_id {
 
@@ -27,13 +21,13 @@
 	return
     }
     # Check permissions
-    content::check_access $item_id cm_relate \
-	-mount_point $mount_point \
-	-return_url "modules/sitemap/index"
-    db_exec_plsql unrelate_item ""
+    permission::require_permission -party_id [auth::require_login] \
+	-object_id $item_id -privilege write
+    db_exec_plsql unrelate_item {}
     
 }
 
 lappend passthrough [list item_id $item_id]
 
-template::forward "$return_url?item_props_tab=children[content::url_passthrough $passthrough]"
+set item_props_tab children
+ad_returnredirect [export_vars -base $return_url {item_props_tab mount_pount}]