Merge branch 'master' of gitlab.cip.ifi.lmu.de:jost/UniWorX

src/Handler/Home.hs

@@ -102,6 +102,7 @@ homeAnonymous = do
     , dbtIdent     = "upcomingdeadlines" :: Text
     }
   let features = $(widgetFile "featureList")
+  addMessage "danger" "Vorabversion! Die Implementierung von  Uni2work ist noch nicht abgeschlossen!"
   defaultLayout $ do
     $(widgetFile "dsgvDisclaimer")
     $(widgetFile "home")
@@ -192,6 +193,7 @@ homeUser uid = do
     , dbtStyle     = def { dbsEmptyStyle = DBESNoHeading, dbsEmptyMessage = MsgNoUpcomingSheetDeadlines }
     , dbtIdent     = "upcomingdeadlines" :: Text
     }
+  addMessage "danger" "Vorabversion! Die Implementierung von  Uni2work ist noch nicht abgeschlossen."
   defaultLayout $ do
     -- setTitle "Willkommen zum Uni2work Test!"
     $(widgetFile "homeUser")

src/Handler/Sheet.hs

@@ -238,9 +238,9 @@ getSheetListR tid csh = do
         )
 --    GitLab Issue $143: HOW TO SORT?
 --       , ( "percent"
---         , SortColumn $ \(sheet `E.LeftOuterJoin` (submission `E.InnerJoin` ))) ->
+--         , SortColumn $ \(sheet `E.LeftOuterJoin` (submission `E.InnerJoin` _submissionUser)) ->
 --             case sheetType of -- no Haskell inside Esqueleto, right?
---             (submission E.?. SubmissionRatingPoints) E./. (sheet )
+--             (submission E.?. SubmissionRatingPoints) E./. (sheet E.^. SheetType)
 --         )
       ]
     , dbtFilter    = Map.fromList
@@ -248,8 +248,8 @@ getSheetListR tid csh = do
     , dbtStyle     = def
     , dbtIdent     = "sheets" :: Text
     }
-  cTime <- Just <$> liftIO getCurrentTime -- TODO: remove me and the 2 next TODOs, see issue #142
+  cTime <- Just <$> liftIO getCurrentTime -- TODO: HACK - remove me and the 2 next TODOs, see issue #142
-  rawStats <- runDB $ do
+  rawStats <- runDB $ do -- compute the values of the table once again, since dbTable does not provide a list of raw values for summation/statistics
     E.select $ E.from $ \(sheet `E.LeftOuterJoin` (submission `E.InnerJoin` submissionUser)) -> do
       E.on $ submission E.?. SubmissionId E.==. submissionUser E.?. SubmissionUserSubmission
       E.on $  (E.just $ sheet E.^. SheetId) E.==. submission E.?. SubmissionSheet

templates/home.hamlet

@@ -1,12 +1,5 @@
 <div .container>
 
-  <div .alerts>
-    <div .alert .alert-danger>
-      <div .alert__content>
-        Vorabversion!
-        Die Implementierung von
-        Uni2work ist noch nicht abgeschlossen.
-
   <h1>
     Kurse mit offener Registrierung
   <div .container>

templates/homeUser.hamlet

@@ -2,13 +2,6 @@
   <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.
-
 <div .container>
   <h1>
     Anstehende Übungsblätter

templates/versionHistory.hamlet

@@ -2,13 +2,6 @@
   <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.
-
   <section>
     ^{features}