Index: openacs-4/packages/dotlrn/www/members.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.adp,v diff -u -r1.23.2.1 -r1.23.2.2 --- openacs-4/packages/dotlrn/www/members.adp 20 Jul 2005 07:10:04 -0000 1.23.2.1 +++ openacs-4/packages/dotlrn/www/members.adp 8 Aug 2005 11:03:31 -0000 1.23.2.2 @@ -35,6 +35,8 @@ type="submit" value="#dotlrn.search#"> +Create and add a member +

Index: openacs-4/packages/dotlrn/www/members.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v diff -u -r1.23.2.2 -r1.23.2.3 --- openacs-4/packages/dotlrn/www/members.tcl 8 Aug 2005 10:30:58 -0000 1.23.2.2 +++ openacs-4/packages/dotlrn/www/members.tcl 8 Aug 2005 11:03:31 -0000 1.23.2.3 @@ -40,6 +40,7 @@ set admin_p [dotlrn::user_can_admin_community_p -user_id $my_user_id -community_id $community_id] } else { set admin_p 1 + set add_member_url [export_vars -base user-add { {can_browse_p 1} {read_private_data_p t} {referer $return_url} }] } if {![exists_and_not_null referer]} { Index: openacs-4/packages/dotlrn/www/user-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-2.tcl,v diff -u -r1.12.2.1 -r1.12.2.2 --- openacs-4/packages/dotlrn/www/user-add-2.tcl 31 May 2005 23:13:06 -0000 1.12.2.1 +++ openacs-4/packages/dotlrn/www/user-add-2.tcl 8 Aug 2005 11:03:31 -0000 1.12.2.2 @@ -69,8 +69,10 @@ } set redirect "user-add-2?[export_vars {user_id password referer type can_browse_p read_private_data_p dotlrn_interactive_p add_membership_p}]" -if { [string equal $add_membership_p t] } { +if { [string equal $add_membership_p t] && [string equal $referer "/acs-admin/users"] } { set redirect "one-community-admin" +} else { + set redirect $referer } # Don't redirect back to the user-new-2 page if we've already been there