From fbd2931d412b6fc0448bf1c6c1441340e77b945c Mon Sep 17 00:00:00 2001 From: rich Date: Tue, 19 Jul 2005 08:58:39 +0000 Subject: [PATCH] where changed -> were changed --- scripts/edit_file.ml | 4 ++-- scripts/edit_image.ml | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts/edit_file.ml b/scripts/edit_file.ml index 98e8a97..664a7ab 100644 --- a/scripts/edit_file.ml +++ b/scripts/edit_file.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_file.ml,v 1.1 2004/11/01 17:05:14 rich Exp $ + * $Id: edit_file.ml,v 1.2 2005/07/19 08:58:39 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 @@ -45,7 +45,7 @@ let run r (q : cgi) (dbh : Dbi.connection) hostid {hostname = hostname} user = (* Email notify. *) let subject = "Description fields on file #" ^ - string_of_int id ^ " where changed." in + string_of_int id ^ " were changed." in let body = fun () -> "Page: http://" ^ hostname ^ "/_files" in email_notify ~body ~subject ~user dbh hostid; diff --git a/scripts/edit_image.ml b/scripts/edit_image.ml index d489d3a..0d2e6c0 100644 --- a/scripts/edit_image.ml +++ b/scripts/edit_image.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_image.ml,v 1.1 2004/11/01 17:05:14 rich Exp $ + * $Id: edit_image.ml,v 1.2 2005/07/19 08:58:39 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 @@ -62,7 +62,7 @@ let run r (q : cgi) (dbh : Dbi.connection) hostid {hostname = hostname} user = (* Email notify. *) let subject = "Description fields on image #" ^ - string_of_int id ^ " where changed." in + string_of_int id ^ " were changed." in let body = fun () -> "Page: http://" ^ hostname ^ "/_images" in email_notify ~body ~subject ~user dbh hostid; -- 1.8.3.1