Index: openacs-4/packages/dotlrn/www/member-add-2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-2.adp,v
diff -u -N -r1.19 -r1.19.6.1
--- openacs-4/packages/dotlrn/www/member-add-2.adp	7 Nov 2003 16:08:15 -0000	1.19
+++ openacs-4/packages/dotlrn/www/member-add-2.adp	7 Aug 2004 23:13:03 -0000	1.19.6.1
@@ -35,9 +35,19 @@
   <input type="hidden" name="referer" value="@referer@">
   #dotlrn.Role#
   <select name="rel_type">
-<multiple name="roles">
-    <option value="@roles.rel_type@"><%= [lang::util::localize @roles.pretty_name@] %></option>
-</multiple>
+ 
+  <if @allowed_to_add_student@ false and @dotlrn_admin@ false>
+  <multiple name="roles">
+     <if @roles.rel_type@ ne "dotlrn_student_rel">
+       <option value="@roles.rel_type@"><%= [lang::util::localize @roles.pretty_name@] %></option>
+     </if>
+  </multiple>
+  </if>
+  <else> 
+  <multiple name="roles">
+       <option value="@roles.rel_type@"><%= [lang::util::localize @roles.pretty_name@] %></option>
+  </multiple>
+  </else>
   </select>
   <input type="submit" value="#acs-kernel.common_add#">
 </form>
Index: openacs-4/packages/dotlrn/www/member-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-2.tcl,v
diff -u -N -r1.11.6.1 -r1.11.6.2
--- openacs-4/packages/dotlrn/www/member-add-2.tcl	19 Jul 2004 18:39:39 -0000	1.11.6.1
+++ openacs-4/packages/dotlrn/www/member-add-2.tcl	7 Aug 2004 23:13:03 -0000	1.11.6.2
@@ -28,10 +28,15 @@
     roles:multirow
 }
 
-#prevent this page from being called when it is not allowed
-# i.e.   AllowManageMembership 0
-dotlrn_portlet::is_allowed -parameter managemembership
+#prevent to add new student, only admins can do this.
+# parameter  AllowManageMembership 
 
+set allowed_to_add_student [parameter::get_from_package_key \
+                                       -package_key dotlrn-portlet \
+				       -parameter AllowManageMembership]
+
+set dotlrn_admin [dotlrn::admin_p]
+ 
 set community_id [dotlrn_community::get_community_id]
 
 dotlrn::require_user_admin_community -community_id $community_id
Index: openacs-4/packages/dotlrn/www/member-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-3.tcl,v
diff -u -N -r1.7.6.1 -r1.7.6.2
--- openacs-4/packages/dotlrn/www/member-add-3.tcl	19 Jul 2004 18:39:39 -0000	1.7.6.1
+++ openacs-4/packages/dotlrn/www/member-add-3.tcl	7 Aug 2004 23:13:03 -0000	1.7.6.2
@@ -27,10 +27,6 @@
     {referer "one-community-admin"}
 }
 
-#prevent this page from being called when it is not allowed
-# i.e.   AllowManageMembership 0
-dotlrn_portlet::is_allowed -parameter managemembership
-
 set community_id [dotlrn_community::get_community_id]
 # See if the user is already in the group
 set member_p [dotlrn_community::member_p $community_id $user_id]
Index: openacs-4/packages/dotlrn/www/member-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add.tcl,v
diff -u -N -r1.9.6.1 -r1.9.6.2
--- openacs-4/packages/dotlrn/www/member-add.tcl	19 Jul 2004 18:39:39 -0000	1.9.6.1
+++ openacs-4/packages/dotlrn/www/member-add.tcl	7 Aug 2004 23:13:03 -0000	1.9.6.2
@@ -26,10 +26,6 @@
     {referer "one-community-admin"}
 }
 
-#prevent this page from being called when it is not allowed
-# i.e.   AllowManageMembership 0
-dotlrn_portlet::is_allowed -parameter managemembership
-
 set search_text [string trim $search_text]
 set community_id [dotlrn_community::get_community_id]
 
Index: openacs-4/packages/dotlrn/www/members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v
diff -u -N -r1.19.6.2 -r1.19.6.3
--- openacs-4/packages/dotlrn/www/members.tcl	19 Jul 2004 18:39:39 -0000	1.19.6.2
+++ openacs-4/packages/dotlrn/www/members.tcl	7 Aug 2004 23:13:03 -0000	1.19.6.3
@@ -30,10 +30,6 @@
     ad_returnredirect "[dotlrn::get_url]"
 }
 
-#prevent this page from being called when it is not allowed
-# i.e.   AllowManageMembership 0
-dotlrn_portlet::is_allowed -parameter managemembership
-
 set context [list [list "one-community-admin" [_ dotlrn.Admin]] [_ dotlrn.Manage_Members]]
 set community_id [dotlrn_community::get_community_id]
 set portal_id [dotlrn_community::get_portal_id -community_id $community_id]