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