Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl,v diff -u -r1.3.2.1 -r1.3.2.2 --- openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl 3 Sep 2019 11:15:36 -0000 1.3.2.1 +++ openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl 3 Dec 2020 13:30:39 -0000 1.3.2.2 @@ -1,4 +1,10 @@ -# included from elements. +ad_include_contract { + Included from elements. +} { + segment_id:integer,notnull + group_id:integer,notnull +} + permission::require_permission -object_id $segment_id -privilege "read" set write_p [permission::permission_p -object_id $segment_id -privilege "write"]