Stub vor Version History and Impressum added

routes

@@ -34,6 +34,7 @@
 /users                      UsersR            GET             -- no tags, i.e. admins only
 /admin/test                 AdminTestR        GET POST
 /admin/user/#CryptoUUIDUser AdminUserR        GET
+/info                       VersionR          GET             !free
 
 /profile                    ProfileR          GET POST        !free                             !free
 /profile/data               ProfileDataR      GET             !free                             !free

src/Foundation.hs

@@ -576,6 +576,7 @@ instance YesodBreadcrumbs UniWorX where
   breadcrumb UsersR           = return ("Benutzer", Just HomeR)
   breadcrumb AdminTestR       = return ("Test"    , Just HomeR)
   breadcrumb (AdminUserR _)   = return ("Users"   , Just UsersR)
+  breadcrumb VersionR         = return ("Info"    , Just HomeR)
 
   breadcrumb ProfileR         = return ("Profile" , Just HomeR)
   breadcrumb ProfileDataR     = return ("Data"    , Just ProfileR)

src/Handler/Home.hs

@@ -99,7 +99,7 @@ homeAnonymous = do
     , dbtAttrs     = tableDefault
     , dbtIdent     = "upcomingdeadlines" :: Text
     }
-
+  let features = $(widgetFile "featureList")
   defaultLayout $ do
     $(widgetFile "dsgvDisclaimer")
     $(widgetFile "home")
@@ -167,8 +167,14 @@ homeUser uid = do
     , dbtAttrs     = tableDefault
     , dbtIdent     = "upcomingdeadlines" :: Text
     }
-
   defaultLayout $ do
     -- setTitle "Willkommen zum Uni2work Test!"
     $(widgetFile "homeUser")
     $(widgetFile "dsgvDisclaimer")
+
+
+getVersionR :: Handler Html
+getVersionR = do
+  let features = $(widgetFile "featureList")
+  defaultLayout $ do
+    $(widgetFile "versionHistory")

templates/featureList.hamlet

@@ -0,0 +1,17 @@
+<p>
+  <h1>
+  Momentan noch unimplementierte Funktionalitäten
+  <ul>
+    <li>
+      <h4>
+        aus UniWorX bekannt:
+      <ul>
+        <li> Studiengänge von Benutzern werden noch ignoriert
+        <li> Übungsgruppen
+        <li> Klausuren
+    <li>
+      <h4>
+        neue geplante Features:
+      <ul>
+        <li> Studenplan/Kalender
+        <li> Vollständige Vorlesungshomepages

templates/home.hamlet

@@ -8,6 +8,8 @@
         Vorabversion!
         Die Implementierung von
         Uni2work ist noch nicht abgeschlossen.
+  ^{features}
+
 
   <h1>Kurse mit offener Registrierung
     <div .container>

templates/versionHistory.hamlet

@@ -0,0 +1,47 @@
+<div .container>
+  <h3>
+    Re-Implementierung von <a href="https://uniworx.ifi.lmu.de/">UniWorX</a>
+
+  <div .alerts>
+    <div .alert .alert-danger>
+      <div .alert__content>
+        Vorabversion!
+        Die Implementierung von
+        Uni2work ist noch nicht abgeschlossen.
+  ^{features}
+
+ <p>
+      <h2>
+      Versionsgeschichte
+      <ul>
+        <li>
+          <h3>
+            Version 2
+          <ul>
+            <li> Echte Verbesserungen
+            <li> Neues Feature!
+        <li>
+          <h3>
+            Version 1
+          <ul>
+            <li> Grundfunktionalität
+
+  <p>
+    <h2>
+      Impressum
+
+    <ul>
+      <li>
+        Steffen Jost
+      <li>
+        <a href="mailto:jost@tcs.ifi.lmu.de">
+          jost@tcs.ifi.lmu.de
+      <li>
+        Lehr- und Forschungseinheit für
+        Theoretische Informatik
+      <li>
+        Institut für Informatik
+      <li>
+        Ludwig-Maximilians-Universität München
+      <li>
+        Oettingenstr.67, 80538 München