Index: openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy-2.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy-2.tcl 19 Jan 2018 14:09:48 -0000 1.5 +++ openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy-2.tcl 6 Jun 2018 22:58:09 -0000 1.6 @@ -13,14 +13,14 @@ {return_url:localurl ""} } -validate { groups_exists_p -requires {group_id:notnull} { - if { ![group::permission_p -privilege admin $group_id] } { - ad_complain "The group either does not exist or you do not have permission to administer it" - } + if { ![party::permission_p -privilege admin $group_id] } { + ad_complain "The group either does not exist or you do not have permission to administer it" + } } group_in_scope_p -requires {group_id:notnull} { - if { ![application_group::contains_party_p -party_id $group_id]} { - ad_complain "The group either does not exist or does not belong to this subsite." - } + if { ![application_group::contains_party_p -party_id $group_id]} { + ad_complain "The group either does not exist or does not belong to this subsite." + } } }