← urwebplay

Admin section

c08c4a98f92db0fe3c1f1118cbf13387abab9ed2 · ovidiucs · Dec 28, 2015 13:43

+20 −3 · 1 file changed

• urblog.ur +20 −3

diff --git a/urblog.ur b/urblog.ur
index 195d57a..8cf8a2c 100644
--- a/urblog.ur
+++ b/urblog.ur
@@ -104,10 +104,27 @@ open Crud.Make(struct
     val tab = entry
 
     val title = "Blog Admin"
-
+(*
     val cols = {Title = Crud.string "Blog Title", 
                 Created = Crud.time "Created",
                 Author = Crud.string "Author",
-                Body = Crud.string "Entry Body"}
-(* test *)
+                Body = {Nam = "Entry Body",
+						Show = fn b => <xml>{[String.length b]} characters</xml>,
+						Widget = fn [nm :: Name] => <xml><textarea>{nm}/></xml>,
+						WidgetPopulated =
+							fn [nm :: Name] b => <xml><textarea>{nm}>{[b]}</textarea></xml>,
+						Parse = readError,
+						Inject = _}
+ test *)
+  val cols = {Title = Crud.string "Blog Title",
+              Created = Crud.time "Created",
+              Author = Crud.string "Author",
+              Body = {Nam = "Entry Body",
+                      Show = fn b => <xml>{[String.length b]} characters</xml>,
+                      Widget = fn [nm :: Name] => <xml><textarea{nm}/></xml>,
+                      WidgetPopulated = 
+                         fn [nm :: Name] b => <xml><textarea{nm}>{[b]}</textarea></xml>,
+                      Parse = readError,
+                      Inject = _}
+            }
 end)