- let sth =
- match version with
- None ->
- let sth = dbh#prepare_cached
- "select css from pages where hostid = ? and url = ?" in
- sth#execute [`Int hostid; `String page];
- sth
- | Some version ->
- let sth = dbh#prepare_cached
- "select css from pages
- where hostid = ? and id = ? and
- (url = ? or url_deleted = ?)" in
- sth#execute [`Int hostid; `Int version; `String page; `String page];
- sth in