- let sth =
- dbh#prepare_cached "select feedback_email from hosts where id = ?" in
- sth#execute [`Int hostid];
-
- let to_addr = sth#fetch1string () in
+ let to_addr = List.hd (
+ PGSQL(dbh)
+ "select feedback_email from hosts where id = $hostid"
+ ) in
+ let to_addr = Option.get to_addr in