Index: openacs-4/packages/acs-admin/www/users/user-add-2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-2.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/users/user-add-2.adp	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/users/user-add-2.adp	12 Jan 2002 10:31:29 -0000	1.2
@@ -12,7 +12,8 @@
 notify this user.
 
 <p>
-<form method=POST action="user-add-3">
+<form method="post" action="user-add-3">
+<input type="hidden" name="referer" value="@referer@"></input>
 @export_vars@
 Message:
 
@@ -37,7 +38,7 @@
 
 <center>
 
-<input type=submit value="Send Email">
+<input type="submit" value="Send Email">
 
 </center>
 
Index: openacs-4/packages/acs-admin/www/users/user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/users/user-add-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/users/user-add-2.tcl	12 Jan 2002 10:31:29 -0000	1.2
@@ -1,13 +1,14 @@
 ad_page_contract {
     Processes a new user created by an admin
     @cvs-id $Id$
-} {
+} -query {
     user_id
     email
     first_names
     last_name
     password
     password_confirmation
+    {referer "/acs-admin/users"}
 } -properties {
     context_bar:onevalue
     export_vars:onevalue
Index: openacs-4/packages/acs-admin/www/users/user-add-3.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-3.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/users/user-add-3.adp	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/users/user-add-3.adp	12 Jan 2002 10:31:29 -0000	1.2
@@ -10,7 +10,7 @@
 @first_names@ @last_name@ has been notified.
 <p>
 <ul>
-<li>Return to <a href=/acs-admin/users>user administration</a>
+<li>Return to <a href="@referer@">user administration</a>
 <li>View admininstrative page for newly created user, <a href=/acs-admin/users/one?@export_vars@>@first_names@ @last_name@</a>
 </ul>
 
Index: openacs-4/packages/acs-admin/www/users/user-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-3.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/users/user-add-3.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/users/user-add-3.tcl	12 Jan 2002 10:31:29 -0000	1.2
@@ -2,12 +2,13 @@
     Sends email confirmation to user after they've been created
 
     @cvs-id $Id$
-} {
+} -query {
     email
     message
     first_names
     last_name
     user_id
+    {referer "/acs-admin/users"}
 } -properties {
     context_bar:onevalue
     first_names:onevalue
@@ -31,4 +32,4 @@
     return
 }
 
-ad_return_template
\ No newline at end of file
+ad_return_template
Index: openacs-4/packages/acs-admin/www/users/user-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/users/user-add.adp	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/users/user-add.adp	12 Jan 2002 10:31:29 -0000	1.2
@@ -9,6 +9,7 @@
 
 <form action=user-add-2 method=post>
 @export_vars@
+<input type="hidden" name="referer" value="@referer@"></input>
 <table>
 <tr><td>Email:</td><td><input type=text name=email size=20 maxlength=40></td></tr>
 <tr><td>Full Name:</td><td><input type=text name=first_names size=25 maxlength=40> <input type=text name=last_name size=25 maxlength=40></td></tr>
Index: openacs-4/packages/acs-admin/www/users/user-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/users/user-add.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/users/user-add.tcl	12 Jan 2002 10:31:29 -0000	1.2
@@ -2,7 +2,9 @@
     Adding a user by an administrator
 
     @cvs-id $Id$
-} {} -properties {
+} -query {
+    {referer "/acs-admin/users"}
+} -properties {
     context_bar:onevalue
     export_vars:onevalue
 }
@@ -13,4 +15,4 @@
 set user_id [db_nextval acs_object_id_seq]
 set export_vars [export_form_vars user_id]
 
-ad_return_template
\ No newline at end of file
+ad_return_template