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.15 -r1.16
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	4 Sep 2003 09:10:32 -0000	1.15
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	4 Sep 2003 09:20:54 -0000	1.16
@@ -208,6 +208,14 @@
     ad_user_login -forever=$persistent_p $user_id
 }
 
+ad_proc -private auth::get_register_authority {
+} {
+    Get the ID of the authority in which accounts get created.
+} {
+    # HACK while waiting for real account creation
+    return [auth::authority::local]
+}
+
 ad_proc -public auth::create_user {
     {-verify_password_confirm:boolean}
     {-user_id ""}
@@ -252,8 +260,7 @@
                              be quoted. Guaranteed to be non-empty if account_status is not ok.
     </ul>
 } {
-    # HACK: Always create in local acconut
-    set authority_id [auth::authority::local]
+    set authority_id [auth::get_register_authority]
 
     # This holds element error messages
     array set element_messages [list]
@@ -454,8 +461,7 @@
     </ul>
             
 } {
-    # HACK: Only the local authority for now
-    set authority_id [auth::authority::local]
+    set authority_id [auth::get_register_authority]
 
     array set element_info [auth::registration::GetElements -authority_id $authority_id]