Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl	7 Aug 2017 23:47:58 -0000	1.8
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl	7 Jun 2018 17:41:01 -0000	1.9
@@ -18,21 +18,21 @@
     elements:multirow
 } -validate {
     segment_exists_p -requires {segment_id:notnull} {
-	if { ![rel_segments_permission_p $segment_id] } {
-	    ad_complain "The segment either does not exist or you do not have permission to view it"
-	}
+        if { ![permission::permission_p -object_id $segment_id -privilege "read"] } {
+            ad_complain "The segment either does not exist or you do not have permission to view it"
+        }
     }
 }
 
 db_1row select_segment_info {}
 
 # The role pretty names can be message catalog keys that need
 # to be localized before they are displayed
-set role_pretty_plural [lang::util::localize $role_pretty_plural]    
+set role_pretty_plural [lang::util::localize $role_pretty_plural]
 
 set context [list [list "[ad_conn package_url]admin/rel-segments/" "Relational segments"] [list [export_vars -base one {segment_id}] "One segment"] "Elements"]
 
-# Expects segment_id, segment_name, group_id, role to be passed in 
+# Expects segment_id, segment_name, group_id, role to be passed in
 
 ad_return_template