Index: openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl,v
diff -u -N -r1.15 -r1.15.2.1
--- openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl	21 Dec 2006 15:57:53 -0000	1.15
+++ openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl	10 Apr 2007 02:32:12 -0000	1.15.2.1
@@ -32,7 +32,7 @@
 
 set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Add_Users_to_Group]]
 
-form create select_community -html {action select_community action users-add-to-community-email}
+form create select_community -html {action select_community} -cancel_url $referer
 element create select_community users \
     -label " " \
     -datatype text \
@@ -70,6 +70,7 @@
 }
 
 if {[form is_valid select_community]} {
+
     form get_values select_community \
         users community_id
 
@@ -85,7 +86,7 @@
 
     ad_returnredirect [export_vars \
 			   -base ../member-email-confirm \
-			   {{user_id $users} community_id}]
+			   {{user_id $users} {return_url $referer} community_id}]
 
     ad_script_abort
 }