- let sth = dbh#prepare_cached "update users set
- can_edit = ?, can_manage_users = ?,
- can_manage_contacts = ?,
- can_manage_site = ?,
- can_edit_global_css = ?,
- can_import_mail = ?
- where hostid = ? and id = ?" in
- sth#execute [`Bool can_edit; `Bool can_manage_users;
- `Bool can_manage_contacts; `Bool can_manage_site;
- `Bool can_edit_global_css; `Bool can_import_mail;
- Some hostid; Some userid];
+ PGSQL(dbh)
+ "update users set
+ can_edit = $can_edit, can_manage_users = $can_manage_users,
+ can_manage_contacts = $can_manage_contacts,
+ can_manage_site = $can_manage_site,
+ can_edit_global_css = $can_edit_global_css,
+ can_import_mail = $can_import_mail
+ where hostid = $hostid and id = $userid";