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.2 -r1.12.2.3 --- openacs-4/packages/dotlrn/www/user-add-2.tcl 8 Aug 2005 11:03:31 -0000 1.12.2.2 +++ openacs-4/packages/dotlrn/www/user-add-2.tcl 2 Sep 2005 05:11:17 -0000 1.12.2.3 @@ -77,7 +77,7 @@ # Don't redirect back to the user-new-2 page if we've already been there if {${dotlrn_interactive_p} && !$dotlrn_user_p} { - set redirect "../${redirect}" + # set redirect "../${redirect}" ad_returnredirect "admin/user-new-2?[export_vars {user_id {referer $redirect}}]" ad_script_abort } elseif { [string equal $add_membership_p t] } { Index: openacs-4/packages/dotlrn/www/admin/user-new-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new-2.tcl,v diff -u -r1.32.2.1 -r1.32.2.2 --- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl 31 May 2005 23:13:07 -0000 1.32.2.1 +++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl 2 Sep 2005 05:11:17 -0000 1.32.2.2 @@ -22,7 +22,7 @@ @version $Id$ } -query { user_id - {referer "[dotlrn::get_admin_url]/users"} + {referer "[dotlrn::get_admin_url]/users" } } #Pages in this directory are only runnable by dotlrn-wide admins. Index: openacs-4/packages/dotlrn/www/admin/users.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users.adp,v diff -u -r1.30 -r1.30.2.1 --- openacs-4/packages/dotlrn/www/admin/users.adp 13 Jan 2005 13:57:22 -0000 1.30 +++ openacs-4/packages/dotlrn/www/admin/users.adp 2 Sep 2005 05:11:17 -0000 1.30.2.1 @@ -22,7 +22,6 @@ #dotlrn.Users# @context_bar;noquote@ -<% set referer "[dotlrn::get_admin_url]/users" %> [ #dotlrn.Create_A_New_User# Index: openacs-4/packages/dotlrn/www/admin/users.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users.tcl,v diff -u -r1.20.2.1 -r1.20.2.2 --- openacs-4/packages/dotlrn/www/admin/users.tcl 31 May 2005 23:13:07 -0000 1.20.2.1 +++ openacs-4/packages/dotlrn/www/admin/users.tcl 2 Sep 2005 05:11:17 -0000 1.20.2.2 @@ -65,6 +65,6 @@ } else { set n_users [db_string select_dotlrn_users_count {}] } - +set referer [ad_return_url] ad_return_template