fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Default sorting for TermListR added

Browse Source
This commit is contained in:
SJost 2019-02-22 13:00:13 +01:00
parent d90093bed4
commit d1c0b67627
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Term.hs
View File

@ -68,7 +68,7 @@ getTermShowR = do
provideRep $ toJSON . map fst <$> runDB (E.select $ E.from termData) provideRep $ toJSON . map fst <$> runDB (E.select $ E.from termData)
provideRep $ do provideRep $ do
let colonnadeTerms = widgetColonnade $ mconcat let colonnadeTerms = widgetColonnade $ mconcat
[ sortable (Just "termid") "Kürzel" $ \(Entity tid _, _) -> anchorCell [ sortable (Just "term-id") "Kürzel" $ \(Entity tid _, _) -> anchorCell
(TermCourseListR tid) (TermCourseListR tid)
[whamlet|#{toPathPiece tid}|] [whamlet|#{toPathPiece tid}|]
, sortable (Just "lecture-start") (i18nCell MsgLectureStart) $ \(Entity _ Term{..},_) -> , sortable (Just "lecture-start") (i18nCell MsgLectureStart) $ \(Entity _ Term{..},_) ->
@ -104,7 +104,7 @@ getTermShowR = do
-- #{termToText termName} -- #{termToText termName}
-- |] -- |]
-- ] -- ]
let validator = def let validator = def & defaultSorting [SortDescBy "term-id"]
table <- runDB $ dbTableWidget' validator DBTable table <- runDB $ dbTableWidget' validator DBTable
{ dbtSQLQuery = termData { dbtSQLQuery = termData
, dbtRowKey = (E.^. TermId) , dbtRowKey = (E.^. TermId)
@ -123,7 +123,7 @@ getTermShowR = do
, ( "lecture-end" , ( "lecture-end"
, SortColumn $ \term -> term E.^. TermLectureEnd , SortColumn $ \term -> term E.^. TermLectureEnd
) )
, ( "termid" , ( "term-id"
, SortColumn $ \term -> term E.^. TermId , SortColumn $ \term -> term E.^. TermId
) )
] ]