X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=scripts%2Fedit.ml;h=df0242ee443a8d604ce2ccdae1321a4379a1f2bc;hb=5b036c1119e5871a8996c98639cd861ea7d93e75;hp=952e9ef4e92f542f46c5a7e9972a744c5d124efe;hpb=cdac12b60bfef03623b847ef9e7d4eab2b1ad43e;p=cocanwiki.git diff --git a/scripts/edit.ml b/scripts/edit.ml index 952e9ef..df0242e 100644 --- a/scripts/edit.ml +++ b/scripts/edit.ml @@ -1,7 +1,7 @@ (* COCANWIKI - a wiki written in Objective CAML. * Written by Richard W.M. Jones . * Copyright (C) 2004 Merjis Ltd. - * $Id: edit.ml,v 1.18 2004/10/10 15:33:36 rich Exp $ + * $Id: edit.ml,v 1.19 2004/10/10 16:14:43 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 @@ -529,7 +529,8 @@ let run r (q : cgi) (dbh : Dbi.connection) hostid {hostname = hostname} user = let sth = dbh#prepare_cached "set constraints pages_redirect_cn, sitemenu_url_cn, - page_emails_url_cn, links_from_cn deferred" in + page_emails_url_cn, links_from_cn, recently_visited_url_cn + deferred" in sth#execute []; (* Mark the old page as deleted. NB. There is a small race