Index: openacs-4/packages/dotlrn/dotlrn.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/dotlrn.info,v
diff -u -N -r1.123.2.6 -r1.123.2.7
--- openacs-4/packages/dotlrn/dotlrn.info	15 Dec 2005 22:54:26 -0000	1.123.2.6
+++ openacs-4/packages/dotlrn/dotlrn.info	27 Jan 2006 02:14:25 -0000	1.123.2.7
@@ -80,6 +80,7 @@
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="user_portal_pages_csv"  default="#dotlrn.user_portal_page_home_title#,#new-portal.simple_2column_layout_name#;#dotlrn.user_portal_page_calendar_title#,#new-portal.simple_1column_layout_name#;#dotlrn.user_portal_page_file_storage_title#,#new-portal.simple_1column_layout_name#" description="a csv list of the other pages to create on the user wsp by default"/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="user_portal_pretty_name"  default="#dotlrn.user_portal_pretty_name#" description="the pretty name for the user portal"/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="DefaultCommunityJoinMailP" default="0" description="If there is no welcome mail for new members in the database, should a default one be send?" section_name="Communities"/>
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="SelfRegistrationP"  default="1" description="Allow a user to join/leave communities or classes."/>
         </parameters>
 
     </version>
Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp,v
diff -u -N -r1.39.2.1 -r1.39.2.2
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp	31 May 2005 23:13:06 -0000	1.39.2.1
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp	27 Jan 2006 02:14:25 -0000	1.39.2.2
@@ -19,7 +19,7 @@
 %>
 
 
-<if @user_can_browse_p@>
+<if @user_can_browse_p@ and @self_registration_p@>
   <small>[&nbsp;<a href="@dotlrn_url@/manage-memberships">#dotlrn.lt_JoinDrop_a_Class_or_C#</a>&nbsp;]</small>
   <br></br>
 </if>
Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl,v
diff -u -N -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	31 May 2005 23:13:06 -0000	1.13.2.1
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	27 Jan 2006 02:14:25 -0000	1.13.2.2
@@ -101,4 +101,6 @@
      <link rel="stylesheet" href="/resources/acs-templating/mktree.css" media="all">
 }
 
+set self_registration_p [parameter::get -parameter SelfRegistrationP -package_id [dotlrn::get_package_id] -default 1]
+
 ad_return_template
Index: openacs-4/packages/dotlrn/www/manage-memberships.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/manage-memberships.tcl,v
diff -u -N -r1.11.2.3 -r1.11.2.4
--- openacs-4/packages/dotlrn/www/manage-memberships.tcl	15 Dec 2005 10:38:26 -0000	1.11.2.3
+++ openacs-4/packages/dotlrn/www/manage-memberships.tcl	27 Jan 2006 02:14:25 -0000	1.11.2.4
@@ -43,6 +43,11 @@
 } -properties {
 }
 
+if { ! [parameter::get -parameter SelfRegistrationP -package_id [dotlrn::get_package_id] -default 1] } {
+    ad_returnredirect "not-allowed"
+    ad_script_abort
+}
+
 set user_id [ad_conn user_id]
 
 set show_drop_button_p [parameter::get_from_package_key \