- let sth = dbh#prepare_cached "insert into mailing_lists (hostid, email,
- pending, opt_out) values (?, ?, ?, ?)" in
- sth#execute [`Int hostid; `String email; `String pending; `String opt_out];
+ let sth = dbh#prepare_cached "insert into mailing_lists (hostid, email, name,
+ pending, opt_out) values (?, ?, ?, ?, ?)" in
+ sth#execute [`Int hostid; `String email; `String name;
+ `String pending; `String opt_out];