diff --git a/src/Handler/LMS/Userlist.hs b/src/Handler/LMS/Userlist.hs index 25d57e3ed..ab904ba52 100644 --- 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."