Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/attribute-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/attribute-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/attribute-add.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/attribute-add.tcl	19 Nov 2001 18:29:28 -0000	1.2
@@ -6,6 +6,7 @@
     @cvs-id $Id$
 } {
     workflow_key
+    return_url:optional
 } -properties {
     context_bar
     workflow_name
@@ -19,9 +20,9 @@
     where  ot.object_type = :workflow_key
 }
 
-set context_bar [ad_context_bar [list "workflow?[export_url_vars workflow_key]" "$workflow_name"] [list "attributes?[export_vars -url {workflow_key}]" "Attributes"] "Add attribute"]
+set context_bar [ad_context_bar [list "workflow?[export_vars -url {workflow_key}]" "$workflow_name"] [list "attributes?[export_vars -url {workflow_key}]" "Attributes"] "Add attribute"]
 
-set export_vars [export_vars -form { workflow_key  }]
+set export_vars [export_vars -form {workflow_key return_url}]
 
 db_multirow datatypes datatype {
     select datatype