Support for users, roles, restrictions.

[cocanwiki.git] / scripts / admin / edit_emails.ml

diff --git a/scripts/admin/edit_emails.ml b/scripts/admin/edit_emails.ml
index 732dee0..a3b39ea 100644 (file)
--- a/scripts/admin/edit_emails.ml
+++ b/scripts/admin/edit_emails.ml
@@ -1,7 +1,7 @@
 (* COCANWIKI scripts.
  * Written by Richard W.M. Jones <rich@merjis.com>.
  * Copyright (C) 2004 Merjis Ltd.
- * $Id: edit_emails.ml,v 1.1 2004/09/07 10:14:10 rich Exp $
+ * $Id: edit_emails.ml,v 1.2 2004/09/07 13:40:10 rich Exp $
  *)
 
 open Apache
@@ -17,11 +17,11 @@ open Cocanwiki_ok
 let split_re = Pcre.regexp "[\\r\\n,;]+"
 let email_re = Pcre.regexp "(.*)<(.*)>"
 
-let run r (q : cgi) (dbh : Dbi.connection) hostid_hostname _ =
+let run r (q : cgi) (dbh : Dbi.connection) host_stuff _ =
   let hostid = int_of_string (q#param "hostid") in
 
   if q#param_true "cancel" then (
-    let _, hostname = hostid_hostname in
+    let _, hostname, _ = host_stuff in
     q#redirect ("http://" ^ hostname ^ "/_bin/admin/host.cmo?hostid=" ^
                string_of_int hostid);
     raise CgiExit