From 0418692f07e057e2aa847fb2f5f24e6021a6073e Mon Sep 17 00:00:00 2001
From: Vincent Ambo <viam@humac.com>
Date: Tue, 6 Mar 2012 00:50:53 +0100
Subject: * finished comment field

---
 src/Blog.hs | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

(limited to 'src/Blog.hs')

diff --git a/src/Blog.hs b/src/Blog.hs
index 62de9be0f442..9c35c1ec742f 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -100,22 +100,20 @@ renderEntry entry = H.div ! A.class_ "innerBox" $ do
             preEscapedString $ text entry
             preEscapedString $ mtext entry
         H.div ! A.class_ "innerBoxComments" $ do
-            H.div ! A.name "cHead" ! A.style "font-size:large;font-weight:bold;" $ toHtml $ cHead (lang entry)
+            H.div ! A.class_ "cHead" $ toHtml $ cHead (lang entry) -- ! A.style "font-size:large;font-weight:bold;"
             H.ul $ renderComments (comments entry) (lang entry)
-            renderCommentBox $ lang entry
+            renderCommentBox (lang entry) (_id entry)
 
-renderCommentBox :: BlogLang -> Html
-renderCommentBox lang = do
-    H.div ! A.name "cHead" $ toHtml $ cwHead lang
-    H.form $ do
+renderCommentBox :: BlogLang -> String -> Html
+renderCommentBox cLang cId = do
+    H.div ! A.class_ "cHead" $ toHtml $ cwHead cLang
+    H.form ! A.method "POST" ! A.action (toValue $ "/" ++ (show cLang) ++  "/postcomment/" ++ cId) $ do
         H.p $ H.label $ do
-            toHtml ("Name:" :: String)
-            H.input 
-{-
-<form>
- <p><label>Customer name: <input></label></p>
-</form>
--}
+            H.span $ "Name:" --toHtml ("Name:" :: String)
+            H.input ! A.name "cname"
+        H.p $ H.label $ do
+            H.span $ toHtml $ cSingle cLang -- toHtml (cSingle lang)
+            H.textarea ! A.name "ctext" ! A.cols "50" ! A.rows "13" $ mempty
 
 renderComments :: [Comment] -> BlogLang -> Html
 renderComments [] lang = H.li $ toHtml $ noComments lang
-- 
cgit 1.4.1