Index: openacs-4/packages/acs-subsite/www/members/member-invite.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/member-invite.tcl,v diff -u -N -r1.11 -r1.12 --- openacs-4/packages/acs-subsite/www/members/member-invite.tcl 7 Aug 2017 23:47:59 -0000 1.11 +++ openacs-4/packages/acs-subsite/www/members/member-invite.tcl 17 Dec 2017 18:08:39 -0000 1.12 @@ -1,6 +1,6 @@ ad_page_contract { Invite new member. - + @author Lars Pind (lars@collaboraid.biz) @creation-date 2003-06-02 @cvs-id $Id$ @@ -43,7 +43,7 @@ ad_form -extend -name user_search -on_submit { set create_p [group::permission_p -privilege create $group_id] - + if { $group_info(join_policy) eq "closed" && !$create_p} { ad_return_forbidden "Cannot invite members" "I'm sorry, but you're not allowed to invite members to this group" ad_script_abort