(* Copy a page from one host to another. Note that this only copies
* the text, not any images which may be present.
- * $Id: copy_page.ml,v 1.1 2005/07/25 12:49:22 rich Exp $
+ * $Id: copy_page.ml,v 1.2 2006/07/26 13:41:46 rich Exp $
*
* Usage: copy_page hostid url new_hostid new_url
*)
let new_pageid = sth#serial "pages_id_seq" in
let sth = dbh#prepare_cached
- "insert into contents (pageid, ordering, sectionname, content, divname)
- select ? as pageid, ordering, sectionname, content, divname
+ "insert into contents (pageid, ordering, sectionname, content,
+ divname, jsgo)
+ select ? as pageid, ordering, sectionname, content, divname, jsgo
from contents
where pageid = ?" in
sth#execute [`Int new_pageid; `Int old_pageid];