chore(lms): continued work on stub wip

models/lms.model

@@ -1,4 +1,9 @@
+Qualification
+  name Text
+  deriving Generic
+
 -- LMS Interface Tables, need regular processing by background jobs
+
 LmsUser
   user              UserId 
   ident             LmsIdent
@@ -8,18 +13,14 @@ LmsUser
   delete            Bool
   deriving Generic
 
-Qualification
-  name Text
-  deriving Generic
-
 LmsUserlist
   ident             LmsIdent
   failed            Bool
-  UniqueLmsUserlist lmsident
+  UniqueLmsUserlist ident
   deriving Generic
 
 LmsResult
   ident             LmsIdent
   success           UTCTime
-  UniqueLmsResult   lmsident
-  deriving Generic
+  UniqueLmsResult   ident
+  deriving Generic

src/Foundation/Navigation.hs

@@ -133,7 +133,7 @@ breadcrumb HealthR          = i18nCrumb MsgMenuHealth          Nothing
 breadcrumb InstanceR        = i18nCrumb MsgMenuInstance        Nothing
 breadcrumb StatusR          = i18nCrumb MsgMenuHealth          Nothing  -- never displayed
 
--- breadcrumb LmsR             = i18nCrumb MsgMenuLms             Nothing
+breadcrumb LmsR             = i18nCrumb MsgMenuLms             Nothing
 
 breadcrumb ProfileR         = i18nCrumb MsgBreadcrumbProfile   Nothing
 breadcrumb SetDisplayEmailR = i18nCrumb MsgUserDisplayEmail  $ Just ProfileR

src/Handler/LMS.hs

@@ -9,6 +9,9 @@ import Handler.Utils
 
 import qualified Data.Csv as Csv
 import qualified Data.Conduit.List as C
+import qualified Database.Esqueleto.Legacy as E
+import qualified Database.Esqueleto.Utils as E
+import Database.Esqueleto.Utils.TH
 
 type LmsUserIdent = Text -- Unique random use-once identifier for each individual e-learning course; i.e. users may have several active LmsUserIdents at once!
 
@@ -18,8 +21,10 @@ data LmsUserTableCsv = LmsUserTableCsv -- Export only
   , csvLmsUserReset, cvsLmsUserRemove, cvsLmsUserIntern :: Int
   }
 
+data LmsCsvExportData = LmsCsvExportData
+
 type LmsUserTableExpr = E.SqlExpr (Entity LmsUser)
-                        `E.LeftOuterJoin` E.SqlExpr (Entity User)
+                        `E.LeftOuterJoin` E.SqlExpr (Maybe (Entity User))
 
 type LmsUserTableData = DBRow ( Entity LmsUser
                               , Maybe (Entity User)
@@ -74,12 +79,12 @@ getLmsR = do
       dbtProj      = dbtProjSimple $ \(lmsUser, user) -> do
         -- return ("abcdefgh", "12345678", False, False, True)
         return (lmsUser E.^. LmsUserIdent, lmsUser E.^. LmsUserPin, lmsUser E.^. LmsUserResetPin, lmsUser E.^. LmsUserResetPin, isJust (user E.?. UserCompanyPersonalNumber))
-      dbtColonnade = colChoices
+      dbtColonnade = mempty --TODO
       dbtSorting   = mempty
       dbtFilter    = mempty
       dbtFilterUI  = mempty
       dbtParams    = def
-      dbtCsvName = "lms.csv"
+      dbtCsvName = "lms.csv"      
       -- TODO: wip, for reference, see e.g. Handler.Course.Users or Handler.Exam.
       dbtCsvEncode = do
         return $ DBTCsvEncode
@@ -92,8 +97,7 @@ getLmsR = do
                 (row ^. resultUser . _entityVal . _lmsUserResetPin . to fromEnum)
                 (row ^. resultUser . _entityVal . _lmsUserDelete . to fromEnum)
                 mitarbeiter
-          , dbtCsvName
-          , dbtCsvSheetName
+          , dbtCsvName          
           , dbtCsvNoExportData = Nothing
           , dbtCsvHeader = Nothing -- return . Vector.filter csvColumns' . userTableCsvHeader showSex tutorials sheets . fromMaybe def
           , dbtCsvExampleData = Nothing
@@ -109,8 +113,9 @@ getLmsR = do
         -- , dbtCsvRenderKey = _7
         -- , dbtCsvRenderActionClass = _8
         -- , dbtCsvRenderException = _9
-        -- }
-      dbTable psValidator DBTable{..}
+        -- } 
+      psValidator = def
+      lmsTable = dbTable psValidator DBTable{..}
       heading = [whamlet|LMS|]
   siteLayout heading $ do
     setTitleI heading

src/Model/Types.hs

@@ -22,3 +22,4 @@ import Model.Types.Markup as Types
 import Model.Types.Room as Types
 import Model.Types.Csv as Types
 import Model.Types.Upload as Types
+import Model.Types.Lms as Types

src/Model/Types/Lms.hs

@@ -0,0 +1,13 @@
+{-|
+Module: Model.Types.Lms
+Description: Types for Lms
+
+-}
+module Model.Types.Lms
+  ( module Model.Types.Lms 
+  ) where
+
+import Import.NoModel
+
+
+type LmsIdent = Text