Support for NOODP flag, sitewide and per-page.

[cocanwiki.git] / tools / copy_page.ml

diff --git a/tools/copy_page.ml b/tools/copy_page.ml
index 5689e5d..f303640 100644 (file)
--- 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];