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 -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 @@ #dotlrn.Role# 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 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 -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 -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 -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]