Index: openacs-4/packages/dotlrn/www/community-types-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-types-chunk.tcl,v
diff -u -r1.5.8.1 -r1.5.8.2
--- openacs-4/packages/dotlrn/www/community-types-chunk.tcl	31 May 2005 23:13:06 -0000	1.5.8.1
+++ openacs-4/packages/dotlrn/www/community-types-chunk.tcl	3 Feb 2006 12:36:36 -0000	1.5.8.2
@@ -29,5 +29,16 @@
 
 db_multirow community_types select_community_types {}
 
+if { ! [parameter::get -parameter SelfRegistrationP -package_id [dotlrn::get_package_id] -default 1] && [template::multirow size community_types] == 0 } {
+    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_return_template