Permalink
Browse files

Don't update model when time slot is null.

This only happens for predefs and (maybe) old sessions.
  • Loading branch information...
1 parent a9aaa00 commit d535890abfb7b5e3b0168a586cdc0703ad1b4886 @bvds committed Sep 13, 2011
Showing with 3 additions and 2 deletions.
  1. +3 −2 Help/Interface.cl
View
@@ -336,10 +336,11 @@
(when (and (turn-coloring turn) (not (turn-id turn)))
(warn "turn->WB-Reply has no id for ~S" turn))
(case (turn-coloring turn)
- (color-green (model-green-turn)
+ ;; Predefs have no time slot, don't want them to affect any model.
+ (color-green (when time (model-green-turn))
(push `((:action . "modify-object") (:id . ,id)
(:mode . "correct")) result))
- (color-red (model-red-turn time)
+ (color-red (when time (model-red-turn time))
(push `((:action . "modify-object") (:id . ,id)
(:mode . "incorrect")) result))
)

0 comments on commit d535890

Please sign in to comment.