From 0502c7025d9f942228d6c838c2bfd73d7f253070 Mon Sep 17 00:00:00 2001 From: rich Date: Sat, 25 Sep 2004 12:44:36 +0000 Subject: [PATCH] Fix copying of contact forms. --- scripts/admin/create_host.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/admin/create_host.ml b/scripts/admin/create_host.ml index 9f9eab6..9cf2546 100644 --- a/scripts/admin/create_host.ml +++ b/scripts/admin/create_host.ml @@ -1,7 +1,7 @@ (* COCANWIKI - a wiki written in Objective CAML. * Written by Richard W.M. Jones . * Copyright (C) 2004 Merjis Ltd. - * $Id: create_host.ml,v 1.4 2004/09/25 11:45:59 rich Exp $ + * $Id: create_host.ml,v 1.5 2004/09/25 12:44:36 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 @@ -164,7 +164,7 @@ let run r = let sth = dbh#prepare_cached "insert into contact_emails (contactid, email) - select (select contactid from contacts + select (select id from contacts where hostid = ? and name = c.name), ce.email from contact_emails ce, contacts c where ce.contactid = c.id and c.hostid = ?" in -- 1.8.3.1