From dfa96c7f3eb061590aa9fff1bd2d4c177c00aaa1 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Tue, 12 Sep 2023 12:59:40 +0000 Subject: [PATCH] hotfix(lms): lms learner filename for test system changed from qsh to t. !!! REVERT BEFORE PRODUCTION!!! --- src/Handler/LMS/Learners.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/LMS/Learners.hs b/src/Handler/LMS/Learners.hs index 2e97eb655..49645838d 100644 --- a/src/Handler/LMS/Learners.hs +++ b/src/Handler/LMS/Learners.hs @@ -202,7 +202,7 @@ getLmsLearnersDirectR sid qsh = do , csvUseCrLf = lmsDownloadCrLf } csvOpts = def { csvFormat = fmtOpts } - csvSheetName <- csvFilenameLmsUser qsh + csvSheetName <- csvFilenameLmsUser "t" -- DEBUG UNDO ME BEFORE PRODUCTION 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 \ No newline at end of file +-- https://ersocon.net/blog/2017/2/22/creating-csv-files-in-yesod