Fixed to match ChriS's API changes to mod_caml.

[cocanwiki.git] / scripts / create_contact.ml
diff --git a/scripts/create_contact.ml b/scripts/create_contact.ml

index 30a531f..61eebeb 100644 (file)
--- a/scripts/create_contact.ml
+++ b/scripts/create_contact.ml
@@ -1,7 +1,7 @@
  (* COCANWIKI - a wiki written in Objective CAML.
   * Written by Richard W.M. Jones <rich@merjis.com>.
   * Copyright (C) 2004 Merjis Ltd.
- * $Id: create_contact.ml,v 1.2 2004/09/23 11:56:47 rich Exp $
+ * $Id: create_contact.ml,v 1.3 2005/03/31 14:24:04 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
@@ -75,10 +75,11 @@ let run r (q : cgi) (dbh : Dbi.connection) hostid _ _ =
  
    let msg = sprintf "Contact form created.  The contact id is %d.  On the next page you will be given some same <html> code which you should copy and paste onto a web page to create a simple form, which can then be modified for your requirements." contactid in
  
-  let buttons = [ { StdPages.label = "   View contact form   ";
-                   StdPages.link = "/_bin/contact_show.cmo";
-                   StdPages.method_ = None;
-                   StdPages.params = [ "id", string_of_int contactid ] } ] in
+  let buttons = [ { Template.StdPages.label = "   View contact form   ";
+                   Template.StdPages.link = "/_bin/contact_show.cmo";
+                   Template.StdPages.method_ = None;
+                   Template.StdPages.params =
+                     [ "id", string_of_int contactid ] } ] in
    ok ~title:"Contact form created" ~buttons q msg
  
  let () =