Index: openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl	20 Jul 2005 17:52:37 -0000	1.5
+++ openacs-4/packages/dotlrn-ecommerce/www/application-reject.tcl	23 Jul 2005 13:30:54 -0000	1.6
@@ -13,6 +13,7 @@
     user_id:integer,notnull
     {type full}
     {send_email_p 1}
+    {return_url "applications"}    
 } -properties {
 } -validate {
 } -errors {
@@ -22,7 +23,7 @@
 
 if { !$send_email_p || $user_id == $actor_id } {
     dotlrn_community::membership_reject -community_id $community_id -user_id $user_id
-    ad_returnredirect applications
+    ad_returnredirect $return_redirect
 } else {
     # Send email to applicant
     switch $type {
@@ -72,6 +73,6 @@
                 -body $body
         } \
         -after_submit {
-            ad_returnredirect applications
+            ad_returnredirect $return_url
         }
 }