(* COCANWIKI - a wiki written in Objective CAML.
* Written by Richard W.M. Jones <rich@merjis.com>.
* Copyright (C) 2004 Merjis Ltd.
- * $Id: delete_file.ml,v 1.7 2004/10/21 19:54:29 rich Exp $
+ * $Id: delete_file.ml,v 1.8 2004/11/01 17:05:14 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
let id = int_of_string (q#param "id") in
if q#param_true "yes" then (
+ (* Get the name. *)
+ let sth = dbh#prepare_cached "select coalesce (name, name_deleted)
+ from files
+ where hostid = ? and id = ?" in
+ sth#execute [`Int hostid; `Int id];
+ let name = sth#fetch1string () in
+
(* Delete the file. *)
let sth = dbh#prepare_cached "update files
set name_deleted = name, name = null
dbh#commit ();
(* Email notify. *)
- let subject = "File #" ^ string_of_int id ^ " has been deleted." in
+ let subject = "File " ^ name ^ "#" ^ string_of_int id ^
+ " has been deleted." in
let body = fun () ->
"Page: http://" ^ hostname ^ "/_files?deleted=1" in