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

Revert "hotfix(lms): lms learner filename for test system changed from qsh to t. !!! REVERT BEFORE PRODUCTION!!!"

Browse Source 
This reverts commit dfa96c7f3e.
This commit is contained in:
Steffen Jost 2023-09-21 16:02:08 +00:00
parent 9bc9a0f1b9
commit 8896885bd9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/LMS/Learners.hs
View File

@ -202,7 +202,7 @@ getLmsLearnersDirectR sid qsh = do
, csvUseCrLf = lmsDownloadCrLf
}
csvOpts = def { csvFormat = fmtOpts }
csvSheetName <- csvFilenameLmsUser "t" -- DEBUG UNDO ME BEFORE PRODUCTION qsh
csvSheetName <- csvFilenameLmsUser qsh
let nr = length lms_users
msg = "Success. LMS Users download file " <> csvSheetName <> " containing " <> tshow nr <> " rows"
$logInfoS "LMS" msg
@ -210,4 +210,4 @@ getLmsLearnersDirectR sid qsh = do
csvRenderedToTypedContentWith csvOpts csvSheetName csvRendered
-- direct Download see:
-- https://ersocon.net/blog/2017/2/22/creating-csv-files-in-yesod
-- https://ersocon.net/blog/2017/2/22/creating-csv-files-in-yesod