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

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

View File

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

View File

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