Index: openacs-4/packages/ecommerce/www/admin/email-templates/edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/email-templates/edit-2.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/ecommerce/www/admin/email-templates/edit-2.tcl	31 May 2005 23:13:16 -0000	1.4.2.1
+++ openacs-4/packages/ecommerce/www/admin/email-templates/edit-2.tcl	7 Aug 2005 17:00:32 -0000	1.4.2.2
@@ -21,6 +21,7 @@
     message:notnull
     when_sent
     issue_type:multiple
+    {return_url ""}
 }
 
 ad_require_permission [ad_conn package_id] admin
@@ -63,5 +64,8 @@
 }
 
 db_release_unused_handles
+if {[string equal "" $return_url]} {
+    set return_url "index.tcl"
+}
 
-ad_returnredirect "index.tcl"
+ad_returnredirect $return_url
Index: openacs-4/packages/ecommerce/www/admin/email-templates/edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/email-templates/edit.tcl,v
diff -u -r1.3.6.1 -r1.3.6.2
--- openacs-4/packages/ecommerce/www/admin/email-templates/edit.tcl	31 May 2005 23:13:16 -0000	1.3.6.1
+++ openacs-4/packages/ecommerce/www/admin/email-templates/edit.tcl	7 Aug 2005 17:00:32 -0000	1.3.6.2
@@ -8,6 +8,7 @@
     @author ported by Jerry Asher (jerry@theashergroup.com)
 } {
     email_template_id
+    {return_url ""}
 }
 
 ad_require_permission [ad_conn package_id] admin
@@ -17,7 +18,7 @@
 [ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index.tcl" "Email Templates"] "Edit Template"]
 <hr>
 <form method=post action=\"edit-2\">
-[export_form_vars email_template_id]
+[export_form_vars email_template_id return_url]
 "