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

Merge branch 'master' into 'live'

Browse Source 
Ajax'ed authpreds

See merge request !106
This commit is contained in:
Gregor Kleen 2018-11-22 22:45:16 +01:00
commit 076e8e2f34
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Home.hs
View File

@ -290,11 +290,11 @@ postAuthPredsR = do
<$> funcForm taForm (fslI MsgActiveAuthTags) True <$> funcForm taForm (fslI MsgActiveAuthTags) True
<* submitButton <* submitButton
formResult authActiveRes $ \authTagActive -> do formResultModal authActiveRes AuthPredsR $ \authTagActive -> do
setSessionJson SessionActiveAuthTags authTagActive setSessionJson SessionActiveAuthTags authTagActive
addMessageI Success MsgAuthPredsActiveChanged tell . pure =<< messageI Success MsgAuthPredsActiveChanged
redirect AuthPredsR
defaultLayout $ do defaultLayout $ do
setTitleI MsgAuthPredsActive setTitleI MsgAuthPredsActive
isModal <- hasCustomHeader HeaderIsModal
$(widgetFile "authpreds") $(widgetFile "authpreds")

2
templates/authpreds.hamlet
View File

@ -1,2 +1,2 @@
<form method=post action=@{AuthPredsR} enctype=#{authActiveEnctype}> <form method=post action=@{AuthPredsR} enctype=#{authActiveEnctype} :isModal:data-ajax-submit>
^{authActiveWidget} ^{authActiveWidget}