X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=scripts%2Fcreate_contact.ml;h=61eebebc7c6579f54443c6a47b77bf40605e0347;hb=295f2cde3f43ccf7f775d39b95925e10aa4c37cb;hp=30a531f6ba3d4705699d1f8f054ad0eaef6af88f;hpb=fed8bae623ae58ec83206e53be5eb7ed119ce875;p=cocanwiki.git diff --git a/scripts/create_contact.ml b/scripts/create_contact.ml index 30a531f..61eebeb 100644 --- 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 . * 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 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 () =