fix: don't treat ExamBonusManual as override

2019-09-26 16:50:30 +02:00 · 2019-09-26 16:50:30 +02:00 · 16abcd2265
commit 16abcd2265
parent 1cfd107aaf
1 changed files with 2 additions and 0 deletions
--- a/src/Handler/Exam/Users.hs
+++ b/src/Handler/Exam/Users.hs
@ -690,6 +690,8 @@ postEUsersR tid ssh csh examn = do
                          -> return ()
                      _ | is _Nothing newBonus
                          -> return ()
+                      _ | Just ExamBonusManual{} <- examBonusRule
+                          -> yield $ ExamUserCsvSetBonusData False uid newBonus
                      Nothing
                        -> yield $ ExamUserCsvSetBonusData False uid newBonus
                      Just _