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

chore(avs): show avs config on test page

Browse Source
This commit is contained in:
Steffen Jost 2023-01-17 18:13:46 +01:00
parent 19012abd38
commit eb4e50b19c
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Handler/Admin/Avs.hs
View File

@ -114,6 +114,13 @@ avsLicenceOptions = mkOptionList
getAdminAvsR, postAdminAvsR :: Handler Html getAdminAvsR, postAdminAvsR :: Handler Html
getAdminAvsR = postAdminAvsR getAdminAvsR = postAdminAvsR
postAdminAvsR = do postAdminAvsR = do
mbAvsConf <- getsYesod $ view _appAvsConf
let avsWgt = [whamlet|
$maybe avsConf <- mbAvsConf
AVS Konfiguration ist #{decodeUtf8 (avsUser avsConf)}@#{avsHost avsConf}:#{avsPort avsConf}
$nothing
AVS nicht konfiguriert!
|]
mAvsQuery <- getsYesod $ view _appAvsQuery mAvsQuery <- getsYesod $ view _appAvsQuery
case mAvsQuery of case mAvsQuery of
Nothing -> return mempty Nothing -> return mempty
@ -405,7 +412,6 @@ getProblemAvsSynchR = do
setTitleI MsgAvsTitleLicenceSynch setTitleI MsgAvsTitleLicenceSynch
$(i18nWidgetFile "avs-synchronisation") $(i18nWidgetFile "avs-synchronisation")
type LicenceTableExpr = ( E.SqlExpr (Entity UserAvs) type LicenceTableExpr = ( E.SqlExpr (Entity UserAvs)
`E.InnerJoin` E.SqlExpr (Entity User) `E.InnerJoin` E.SqlExpr (Entity User)
`E.LeftOuterJoin` E.SqlExpr (Maybe (Entity QualificationUser)) `E.LeftOuterJoin` E.SqlExpr (Maybe (Entity QualificationUser))

3
templates/avs.hamlet
View File

@ -53,3 +53,6 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later
<p> <p>
Unverarbeitete Antwort: # Unverarbeitete Antwort: #
^{answer} ^{answer}
<section>
^{modal "AVS Konfiguration" (Right avsWgt)}