Index: openacs-4/packages/dotlrn/www/one-community-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-type.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn/www/one-community-type.tcl	29 Apr 2004 15:39:13 -0000	1.23
+++ openacs-4/packages/dotlrn/www/one-community-type.tcl	8 Aug 2006 21:26:24 -0000	1.24
@@ -23,7 +23,7 @@
     @version $Id$
 } -query {
 } -properties {
-    context:onevalue
+    context_bar:onevalue
     pretty_name:onevalue
     description:onevalue
     supertype:onevalue
@@ -34,6 +34,9 @@
     title:onevalue
 }
 
+set self_registration_p [parameter::get -parameter SelfRegistrationP -package_id [dotlrn::get_package_id] -default 1]
+
+
 # Check that this is a community type
 if {[parameter::get -localize -parameter community_type_level_p] != 1} {
     ad_returnredirect "./"
@@ -42,7 +45,7 @@
 
 set user_id [ad_conn user_id]
 
-set context {}
+set context_bar [_ dotlrn.View]
 
 # What community type are we at?
 set community_type [dotlrn_community::get_community_type]