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

fix(exam participant download): fix icon not being shown

Browse Source 
icon should have worked, but did not. does now
This commit is contained in:
Steffen Jost 2019-07-10 20:47:46 +02:00
parent 99ffd7b6c3
commit a075b1648e
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Utils/Table/Pagination.hs
View File

@ -283,7 +283,7 @@ instance Button UniWorX ButtonCsvMode where
btnLabel BtnCsvExport btnLabel BtnCsvExport
= [whamlet| = [whamlet|
$newline never $newline never
#{fontAwesomeIcon "file-csv"} #{iconCSV}
\ _{BtnCsvExport} \ _{BtnCsvExport}
|] |]
btnLabel BtnCsvImport btnLabel BtnCsvImport
@ -781,7 +781,7 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
, formAnchor = Nothing :: Maybe Text , formAnchor = Nothing :: Maybe Text
} }
rows' <- E.select . E.from $ \t -> do rows' <- E.select . E.from $ \t -> do
res <- dbtSQLQuery t res <- dbtSQLQuery t
E.orderBy (map (sqlSortDirection t) psSorting') E.orderBy (map (sqlSortDirection t) psSorting')
@ -880,7 +880,7 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
} }
csvWdgt = $(widgetFile "table/csv-transcode") csvWdgt = $(widgetFile "table/csv-transcode")
uiLayout table = dbsFilterLayout filterWdgt filterEnc (SomeRoute $ rawAction :#: wIdent "table-wrapper") $(widgetFile "table/layout") uiLayout table = dbsFilterLayout filterWdgt filterEnc (SomeRoute $ rawAction :#: wIdent "table-wrapper") $(widgetFile "table/layout")
dbInvalidateResult' = foldr (<=<) return . catMaybes $ dbInvalidateResult' = foldr (<=<) return . catMaybes $

4
src/Utils.hs
View File

@ -166,6 +166,10 @@ fileDownload = fontAwesomeIcon "file-download"
zipDownload :: Markup zipDownload :: Markup
zipDownload = fontAwesomeIcon "file-archive" zipDownload = fontAwesomeIcon "file-archive"
iconCSV :: Markup
iconCSV = fontAwesomeIcon "file-csv"
-- Conditional icons -- Conditional icons
isVisible :: Bool -> Markup isVisible :: Bool -> Markup