Index: openacs-4/packages/acs-subsite/www/user/password-update-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/Attic/password-update-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/user/password-update-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/user/password-update-2.tcl	3 Apr 2002 20:33:18 -0000	1.2
@@ -62,6 +62,7 @@
 }
 
 if [empty_string_p $return_url] {
+    set return_url [ad_parameter -package_id [ad_acs_kernel_id] "HomeURL"]
     set return_link "return to [ad_pvt_home_link]"
 } else {
     set return_link "<a href=\"$return_url\">return</a>"
@@ -75,6 +76,4 @@
 
 set site_link [ad_site_home_link]
 
-ad_return_template
-
-
+ad_returnredirect $return_url
Index: openacs-4/packages/acs-subsite/www/user/password-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/password-update.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/user/password-update.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/user/password-update.tcl	3 Apr 2002 20:33:18 -0000	1.2
@@ -7,7 +7,7 @@
     {user_id ""}
     {return_url ""}
 } -properties {
-    firsT_names:onevalue
+    first_names:onevalue
     last_name:onevalue
     admin_enabled_p:onevalue
     export_vars:onevalue
@@ -25,11 +25,9 @@
     ad_require_permission $user_id "admin"
 }
 
-
-    
 set bind_vars [ad_tcl_vars_to_ns_set user_id]
 
-db_1row user_information "select first_names, 
+db_1row user_information "select first_names,
 last_name, email, url from cc_users where user_id=:user_id" -bind $bind_vars
 
 if {$admin_enabled_p} {
@@ -40,4 +38,4 @@
 
 set site_link [ad_site_home_link]
 
-ad_return_template
\ No newline at end of file
+ad_return_template