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 -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