git.annexia.org
/
cocanwiki.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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.
(* 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
*)
*
* 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
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)
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];
from pages
where id = ?" in
sth#execute [`String new_url; `Int new_hostid; `Int old_pageid];