From bd260d1a38e0c76596a3549ceb12f10dab75b18f Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Fri, 19 Oct 2018 21:26:17 +0200
Subject: [PATCH] Cleanup

---
 src/Handler/Home.hs             | 10 +++++-----
 templates/home.hamlet           |  8 +-------
 templates/homeUser.hamlet       |  8 +++-----
 templates/versionHistory.hamlet |  8 ++++----
 4 files changed, 13 insertions(+), 21 deletions(-)

diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs
index 2b3fce6d3..3ba5bab0a 100644
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@@ -117,10 +117,10 @@ homeAnonymous = do
     , dbtStyle     = def
     , dbtIdent     = "upcomingdeadlines" :: Text
     }
-  let features = $(widgetFile "featureList")
-  addMessage Warning "Vorabversion! Die Implementierung von  Uni2work ist noch nicht abgeschlossen!"
+  -- let features = $(widgetFile "featureList")
+  -- addMessage Warning "Vorabversion! Die Implementierung von  Uni2work ist noch nicht abgeschlossen!"
   defaultLayout $ do
-    $(widgetFile "dsgvDisclaimer")
+    -- $(widgetFile "dsgvDisclaimer")
     $(widgetFile "home")
 
 homeUser :: Key User -> Handler Html
@@ -218,11 +218,11 @@ homeUser uid = do
     , dbtStyle     = def { dbsEmptyStyle = DBESNoHeading, dbsEmptyMessage = MsgNoUpcomingSheetDeadlines }
     , dbtIdent     = "upcomingdeadlines" :: Text
     }
-  addMessage Warning "Vorabversion! Die Implementierung von  Uni2work ist noch nicht abgeschlossen."
+  -- addMessage Warning "Vorabversion! Die Implementierung von  Uni2work ist noch nicht abgeschlossen."
   defaultLayout $ do
     -- setTitle "Willkommen zum Uni2work Test!"
     $(widgetFile "homeUser")
-    $(widgetFile "dsgvDisclaimer")
+    -- $(widgetFile "dsgvDisclaimer")
 
 
 getVersionR :: Handler TypedContent
diff --git a/templates/home.hamlet b/templates/home.hamlet
index 8f5c3bafb..3995b864f 100644
--- a/templates/home.hamlet
+++ b/templates/home.hamlet
@@ -1,11 +1,5 @@
 <div .container>
-
-  <h1>
+  <h2>
     Kurse mit offener Registrierung
   <div .container>
     ^{courseTable}
-
-  <h3>
-    Re-Implementierung von <a href="https://uniworx.ifi.lmu.de/">UniWorX</a>
-
-  ^{features}
diff --git a/templates/homeUser.hamlet b/templates/homeUser.hamlet
index c82ea98ef..479d27ab9 100644
--- a/templates/homeUser.hamlet
+++ b/templates/homeUser.hamlet
@@ -1,13 +1,10 @@
 <div .container>
-  <h3>
-    Re-Implementierung von <a href="https://uniworx.ifi.lmu.de/">UniWorX</a>
-
-<div .container>
-  <h1>
+  <h2>
     Anstehende Übungsblätter
   <div .container>
     ^{sheetTable}
 
+<!--
 <div .container>
   <h1>
     Anstehende Klausuren
@@ -17,3 +14,4 @@
   <h1>
     Anstehende Kursanmeldungen
   TODO
+-->
diff --git a/templates/versionHistory.hamlet b/templates/versionHistory.hamlet
index 859356ca5..bee7bee3e 100644
--- a/templates/versionHistory.hamlet
+++ b/templates/versionHistory.hamlet
@@ -10,11 +10,11 @@
       Bekannte Bugs
     <ul>
       <li>
-        Umlaute in Benutzernamen werden durch externes LDAP-Plugin entfernt
+        Login ist u.U. anders als im alten System, z.B. <span style="font-family:monospace">@campus.lmu.de</span> statt <span style="font-family:monospace">@lmu.de</span>
       <li>
-        Auswahlbox "alle markieren" fehlt noch
+        Favicon ist default des Frameworks
       <li>
-        Tabellen über mehrere Seiten müssen vor Seitenwechsel manuell sortiert werden
+        Format von Bewertungsdateien ist provisorisch
 
   <section>
     <h2>
@@ -26,7 +26,7 @@
     <h2>
       Impressum
 
-    <ul>
+    <ul style="list-style-type: none">
       <li>
         Dr Steffen Jost
       <li>