Index: openacs-4/packages/acs-subsite/www/admin/groups/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/one.tcl,v diff -u -N -r1.10 -r1.11 --- openacs-4/packages/acs-subsite/www/admin/groups/one.tcl 7 Oct 2017 10:26:29 -0000 1.10 +++ openacs-4/packages/acs-subsite/www/admin/groups/one.tcl 6 Jun 2018 22:58:09 -0000 1.11 @@ -21,14 +21,14 @@ join_policy:onevalue } -validate { groups_exists_p -requires {group_id:notnull} { - if { ![group::permission_p $group_id] } { - ad_complain "The group either does not exist or you do not have permission to view it" - } + if { ![party::permission_p $group_id] } { + ad_complain "The group either does not exist or you do not have permission to view it" + } } group_in_scope_p -requires {group_id:notnull} { - if { ![application_group::contains_party_p -include_self -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 -include_self -party_id $group_id]} { + ad_complain "The group either does not exist or does not belong to this subsite." + } } }