-
- (* Convert a section name into something valid for use in <a name="...">
- * XXX This breaks horribly for non-7-bit strings.
- *)
- let linkname_of_sectionname str =
- let str = String.copy str in
- for i = 0 to String.length str - 1 do
- if not (isalnum str.[i]) then str.[i] <- '_'
- done;
- str
- in
+ let can_manage_site = can_manage_site user in
+ let can_edit_global_css = can_edit_global_css user in