Index: openacs-4/packages/bug-tracker/www/admin/component-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/component-ae.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/bug-tracker/www/admin/component-ae.tcl	9 Dec 2002 21:24:31 -0000	1.6
+++ openacs-4/packages/bug-tracker/www/admin/component-ae.tcl	13 Jan 2003 18:23:01 -0000	1.7
@@ -3,16 +3,10 @@
     @creation-date 2002-03-26
     @cvs-id $Id$
 } {
-    cancel:optional
     component_id:integer,optional
-    {return_url ""}
+    {return_url "."}
 }
 
-if { [exists_and_not_null cancel] } {
-    ad_returnredirect $return_url
-    ad_script_abort
-}
-
 set project_name [bug_tracker::conn project_name]
 set package_id [ad_conn package_id]
 set package_key [ad_conn package_key]
@@ -24,7 +18,7 @@
 }
 set context_bar [ad_context_bar $page_title]
 
-form create component
+form create component -cancel_url $return_url
 
 element create component return_url -datatype text -widget hidden -value $return_url