summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
c2fa0aa)
The code also doesn't correctly copy macros.
(* COCANWIKI - a wiki written in Objective CAML.
* Written by Richard W.M. Jones <rich@merjis.com>.
* Copyright (C) 2004 Merjis Ltd.
(* COCANWIKI - a wiki written in Objective CAML.
* Written by Richard W.M. Jones <rich@merjis.com>.
* Copyright (C) 2004 Merjis Ltd.
- * $Id: cocanwiki_create_host.ml,v 1.7 2006/08/17 09:11:31 rich Exp $
+ * $Id: cocanwiki_create_host.ml,v 1.8 2006/09/11 09:39:33 rich Exp $
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
) else (
(* Copy from template. *)
) else (
(* Copy from template. *)
+ (* XXX - See tools/copy_host for a more reliable way to do this - XXX. *)
+
(* Use low-level PG'OCaml calls to make a duplicate of the
* old hosts row where id = template.
*
(* Use low-level PG'OCaml calls to make a duplicate of the
* old hosts row where id = template.
*
from contact_emails ce, contacts c
where ce.contactid = c.id and c.hostid = $template";
from contact_emails ce, contacts c
where ce.contactid = c.id and c.hostid = $template";
(* Set the title of the index page. *)
PGSQL(dbh)
"update pages set title = $title
(* Set the title of the index page. *)
PGSQL(dbh)
"update pages set title = $title