Index: openacs-4/packages/bug-tracker/www/admin/version-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/version-ae.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/bug-tracker/www/admin/version-ae.tcl	9 Dec 2002 21:24:31 -0000	1.4
+++ openacs-4/packages/bug-tracker/www/admin/version-ae.tcl	13 Jan 2003 18:31:14 -0000	1.5
@@ -5,15 +5,9 @@
     @cvs-id $Id$
 } {
     {version_id ""}
-    {return_url ""}
-    cancel:optional
+    {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]
@@ -30,7 +24,7 @@
 # no primary key and you're only inserting, you can just ignore it.  
 # Add handling for any other incoming URL variables that should become part of the form.
 
-form create version
+form create version -cancel_url $return_url
 
 element create version version_id -widget hidden
 element create version return_url -datatype text -widget hidden -value $return_url