git.annexia.org
/
cocanwiki.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f249bda
)
Start new pages off with
author
rich
<rich>
Sun, 10 Oct 2004 15:33:36 +0000
(15:33 +0000)
committer
rich
<rich>
Sun, 10 Oct 2004 15:33:36 +0000
(15:33 +0000)
<b>Title</b> is ...
scripts/edit.ml
patch
|
blob
|
history
diff --git
a/scripts/edit.ml
b/scripts/edit.ml
index
016b0bb
..
952e9ef
100644
(file)
--- a/
scripts/edit.ml
+++ b/
scripts/edit.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.
(* COCANWIKI - a wiki written in Objective CAML.
* Written by Richard W.M. Jones <rich@merjis.com>.
* Copyright (C) 2004 Merjis Ltd.
- * $Id: edit.ml,v 1.1
7 2004/10/09 09:52:10
rich Exp $
+ * $Id: edit.ml,v 1.1
8 2004/10/10 15:33:36
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
*
* 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
@@
-323,11
+323,19
@@
let run r (q : cgi) (dbh : Dbi.connection) hostid {hostname = hostname} user =
q "The page name supplied is too short or invalid.";
return () in
q "The page name supplied is too short or invalid.";
return () in
+ (* Initial page contents. *)
+ let contents =
+ match pt with
+ Page url -> []
+ | Title title ->
+ [ "", "",
+ "<b>" ^ title ^ "</b> is " ] in
+
let model = { id = 0;
pt = pt;
description = title;
redirect = "";
let model = { id = 0;
pt = pt;
description = title;
redirect = "";
- contents =
[]
} in
+ contents =
contents
} in
model_to_template model template
in
model_to_template model template
in