Index: openacs-4/packages/dotlrn/www/register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/register.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn/www/register.tcl	1 Mar 2005 00:01:27 -0000	1.13
+++ openacs-4/packages/dotlrn/www/register.tcl	8 Aug 2006 21:26:24 -0000	1.14
@@ -27,8 +27,19 @@
     {referer "./"}
 }
 
-auth::require_login
+if { ! [parameter::get -parameter SelfRegistrationP -package_id [dotlrn::get_package_id] -default 1] } {
+    set redirect_to [parameter::get -parameter SelfRegistrationRedirectTo -package_id [dotlrn::get_package_id] -default ""]
 
+    if { $redirect_to ne "" } {
+	ad_returnredirect $redirect_to
+    } else {
+	ad_returnredirect "not-allowed"
+    }
+    ad_script_abort
+}
+
+ad_maybe_redirect_for_registration
+
 if {[empty_string_p $community_id]} {
     set community_id [dotlrn_community::get_community_id]
 }