X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=tools%2Fcopy_page.ml;fp=tools%2Fcopy_page.ml;h=f303640802a1cc841b5c4e963dfa7c5b78f00b32;hb=ed0756f32c50d84f36f25590aefb6168762545ed;hp=5689e5d2bb00b4bcf283aa5ba9a2de06c7a41726;hpb=8a6ae4a5a2f14da7b1fe0bf6bf95e3100856a079;p=cocanwiki.git

diff --git a/tools/copy_page.ml b/tools/copy_page.ml
index 5689e5d..f303640 100644
--- a/tools/copy_page.ml
+++ b/tools/copy_page.ml
@@ -1,6 +1,6 @@
 (* 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.3 2006/08/04 12:45:35 rich Exp $
+ * $Id: copy_page.ml,v 1.4 2006/08/14 11:36:50 rich Exp $
  *
  * Usage: copy_page hostid url new_hostid new_url
  *)
@@ -21,9 +21,10 @@ let () =
   let old_pageid = sth#fetch1int () in
 
   let sth = dbh#prepare_cached
-    "insert into pages (url, title, description, keywords,
+    "insert into pages (url, title, description, keywords, noodp,
                         hostid, redirect, css)
-     select ? as url, title, description, keywords, ? as hostid, redirect, css
+     select ? as url, title, description, keywords, noodp,
+                        ? as hostid, redirect, css
        from pages
       where id = ?" in
   sth#execute [`String new_url; `Int new_hostid; `Int old_pageid];