Index: openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	2 Oct 2003 14:56:57 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	2 Oct 2003 22:04:46 -0000	1.5
@@ -6,6 +6,7 @@
     @cvs-id $Id$
 } {
     node_id:integer,optional
+    {return_url "."}
 }
 
 set page_title "New Application"
@@ -20,6 +21,7 @@
 }
 
 ad_form -name application -cancel_url . -form {
+    {return_url:text(hidden),optional}
     {node_id:key}
     {package_key:text(select)
         {label "Application"}
@@ -37,6 +39,8 @@
         {help_text "This should be a short string, all lowercase, with hyphens instead of spaces, whicn will be used in the URL of the new application. If you leave this blank, we will generate one for you from name of the application."}
         {html {size 30}}
     }
+} -new_request {
+    # Sets return_url
 } -edit_request {
     array set node [site_node::get -node_id $node_id]
     set package_key $node(package_key)
@@ -96,6 +100,6 @@
         site_node::rename -node_id $node_id -name $folder
     }
 } -after_submit {
-    ad_returnredirect .
+    ad_returnredirect $return_url
     ad_script_abort
 }