From 8896885bd9883b4cc96c82c3e880199ff12e575a Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Thu, 21 Sep 2023 16:02:08 +0000 Subject: [PATCH] Revert "hotfix(lms): lms learner filename for test system changed from qsh to t. !!! REVERT BEFORE PRODUCTION!!!" This reverts commit dfa96c7f3eb061590aa9fff1bd2d4c177c00aaa1. --- 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 19b5d0ca7..3f8cdf2ab 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 "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 \ No newline at end of file