From 52be9e319859937eccb1e6c5962b8ce2e0ac101b Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Fri, 17 Nov 2017 16:17:16 +0100
Subject: [PATCH] Link-Buttons via CSS

---
 src/Handler/Course.hs     |  3 ++-
 src/Handler/Utils/Form.hs | 12 ++++++------
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs
index 14375a6c8..f4c791d49 100644
--- a/src/Handler/Course.hs
+++ b/src/Handler/Course.hs
@@ -233,7 +233,8 @@ courseToForm cEntity = CourseForm
     course = entityVal cEntity
       
 newCourseForm :: Maybe CourseForm -> Form CourseForm
-newCourseForm template = identifyForm "newCourseForm" $ \html -> do
+newCourseForm template = -- identifyForm "newCourseForm" $ 
+  \html -> do
     -- mopt hiddenField    
     --     cidKey <- getsYesod appCryptoIDKey
     --     courseId <- runMaybeT $ do
diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index 3af786f4b..a619da262 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -68,12 +68,12 @@ instance Button StandardButton where
 --     LinkButton route = ???
   
 linkButton :: Widget -> ButtonCssClass -> Route UniWorX -> Widget
-linkButton lbl cls url = do
-  [whamlet|
-    <form method=post action=@{url}>      
-      <input type="hidden" name="_formid" value="identify-linkButton">
-      <button .btn .#{bcc2txt cls} type=submit value="Link to @{url}">^{lbl}
-  |] 
+linkButton lbl cls url = [whamlet| <a href=@{url} .btn .#{bcc2txt cls} role=button>^{lbl} |]
+--   [whamlet|
+--     <form method=post action=@{url}>      
+--       <input type="hidden" name="_formid" value="identify-linkButton">
+--       <button .btn .#{bcc2txt cls} type=submit value="Link to @{url}">^{lbl}
+--   |] 
   --  <input .btn .#{bcc2txt cls} type="submit" value=^{lbl}>