Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.63 -r1.64
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	26 Feb 2004 15:28:36 -0000	1.63
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	20 Apr 2004 21:12:31 -0000	1.64
@@ -388,6 +388,7 @@
     {-secret_question ""}
     {-secret_answer ""}
     {-email_verified_p ""} 
+    {-nologin:boolean}
 } {
     Create a user, and return creation status and account status.
     
@@ -589,7 +590,7 @@
     }
         
     # Issue login cookie if login was successful
-    if { [string equal $creation_info(creation_status) "ok"] && [string equal $creation_info(account_status) "ok"] && [ad_conn user_id] == 0 } {
+    if { !$nologin_p && [string equal $creation_info(creation_status) "ok"] && [string equal $creation_info(account_status) "ok"] && [ad_conn user_id] == 0 } {
         auth::issue_login -user_id $creation_info(user_id)
     }