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 -N -r1.9 -r1.9.2.1
--- openacs-4/packages/cms/www/modules/items/unrelate-item.tcl	17 May 2005 21:25:08 -0000	1.9
+++ openacs-4/packages/cms/www/modules/items/unrelate-item.tcl	31 Aug 2006 19:59:06 -0000	1.9.2.1
@@ -5,8 +5,9 @@
     @creation-date October 2004
 } {
     { rel_id:integer,multiple }
-    { mount_point "sitemap" }
-    { return_url "index" }
+    { mount_point:optional "sitemap" }
+    { return_url:optional "index" }
+    { tab:optional "related" }
 }
 
 set item_id ""
@@ -16,15 +17,14 @@
     set item_id [db_string get_item_id "" -default ""]
     if { [string equal $item_id ""] } {
 	db_abort_transaction
-	request::error no_such_rel "The relationship $rel_id does not exist."
-	return
+	ad_return_complaint "The relationship $rel_id does not exist."
+	ad_script_abort
     }
     # Check permissions
     permission::require_permission -party_id [auth::require_login] \
 	-object_id $item_id -privilege write
-    db_exec_plsql unrelate_item {}
+    content::item::unrelate -rel_id $rel
     
 }
 
-set item_props_tab related
-ad_returnredirect [export_vars -base $return_url {item_id mount_pount item_props_tab}]
+ad_returnredirect [export_vars -base $return_url {item_id mount_pount tab}]