Index: openacs-4/packages/ams/www/list-attributes-unmap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-attributes-unmap.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ams/www/list-attributes-unmap.tcl	18 May 2005 17:11:48 -0000	1.2
+++ openacs-4/packages/ams/www/list-attributes-unmap.tcl	26 May 2005 07:35:29 -0000	1.3
@@ -7,6 +7,8 @@
 } {
     {attribute_id:integer,multiple}
     {list_id:integer,notnull}
+    return_url:optional
+    return_url_label:optional
 }
 
 foreach attribute_id $attribute_id {
@@ -18,5 +20,5 @@
 set object_type $list_info(object_type)
 set list_name $list_info(list_name)
 
-ad_returnredirect "list?[export_vars -url {package_key object_type list_name}]"
+ad_returnredirect "list?[export_vars -url {package_key object_type list_name return_url return_url_label}]"
 ad_script_abort