fix(lms): trigger userlist job after upload

2022-09-14 17:20:07 +02:00 · 2022-09-14 17:20:07 +02:00 · cceb60074f
commit cceb60074f
parent ce277af443
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/LMS/Userlist.hs
+++ b/src/Handler/LMS/Userlist.hs
@ -271,7 +271,7 @@ postLmsUserlistDirectR sid qsh = do
          Right nr -> do
            let msg = "Success. LMS Userlist upload file " <> fileName file <> " containing " <> tshow nr <> " rows for header " <> fhead
            $logWarnS "LMS" msg -- TODO: change to Info Level in the future
-            queueDBJob $ JobLmsResults qid
+            queueDBJob $ JobLmsUserlist qid
            return (ok200, msg)
    []     -> do
      let msg = "Userlist upload file missing."