- let canonical_hostname, has_global_css, edit_anon, create_account_anon,
+ if can_manage_site then (
+ (* Get lots of host-specific stuff from the database. *)
+ let rows =
+ PGSQL(dbh) "nullable-results"
+ "select h.canonical_hostname, h.css is not null, h.edit_anon,
+ h.create_account_anon, h.theme_css is not null,
+ t.name, t.description, h.feedback_email, h.mailing_list,
+ h.search_box, h.navigation, h.view_anon,
+ h.brand, coalesce (h.brand_tagline, ''),
+ coalesce (h.brand_description, ''),
+ h.ie_imagetoolbar_no
+ from hosts h left outer join themes t on h.theme_css = t.theme_css
+ where h.id = $hostid" in
+
+ let canonical_hostname, has_global_css, edit_anon, create_account_anon,