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.2.3 -r1.63.2.4
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	9 Jul 2004 22:00:09 -0000	1.63.2.3
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	19 Jul 2004 18:39:40 -0000	1.63.2.4
@@ -73,6 +73,17 @@
     ad_script_abort
 }
 
+ad_proc -public auth::self_registration {} {
+   #Check AllowSelfRegister parameter
+
+    if { ![parameter::get_from_package_key \
+                      -package_key acs-authentication \
+	              -parameter AllowSelfRegister] } {
+          ad_maybe_redirect_for_registration
+    }
+}          
+
+
 ad_proc -public auth::get_user_id {
     {-level ok}
     {-account_status ok}