Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl,v diff -u -r1.7 -r1.7.2.1 --- openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl 7 Aug 2017 23:47:58 -0000 1.7 +++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl 16 May 2019 09:54:29 -0000 1.7.2.1 @@ -1,5 +1,3 @@ -# /packages/mbryzek-subsite/www/admin/rel-segments/new.tcl - ad_page_contract { Form to create a new relational segment @@ -21,9 +19,9 @@ subsite_group_id:onevalue } -validate { group_in_scope_p -requires {group_id:notnull} { - if { ![application_group::contains_party_p -party_id $group_id -include_self]} { - 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 -include_self]} { + ad_complain "The group either does not exist or does not belong to this subsite." + } } } @@ -33,7 +31,7 @@ if { $rel_type ne "" } { ad_returnredirect [export_vars -base new-2 {group_id rel_type return_url}] ad_script_abort -} +} permission::require_permission -object_id $group_id -privilege "read"