Index: openacs-4/packages/acs-subsite/lib/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-new.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/lib/user-new.tcl	10 Jun 2004 17:06:47 -0000	1.7
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl	24 Jul 2004 08:34:06 -0000	1.8
@@ -63,7 +63,6 @@
     }
 }
 
-
 ad_form -extend -name register -on_request {
     # Populate elements from local variables
 
@@ -92,7 +91,6 @@
         }
     }
 
-
     # Handle registration problems
     
     switch $creation_info(creation_status) {
@@ -131,10 +129,6 @@
     if { ![empty_string_p $next_url] } {
         # Add user_id and account_message to the URL
         
-        if { $creation_info(generated_pwd_p) } {
-            set password $creation_info(password)
-        }
-        
         ad_returnredirect [export_vars -base $next_url {user_id password {account_message $creation_info(account_message)}}]
         ad_script_abort
     }