               (if (module-lesson-type-has-multiple-choices? moduleCode
                                                             lessonType)
                   (make-added-lessons-draggable $divElemSeq moduleCode
-                                                lessonType lessonLabel
+                                                lessonType lessonGroup
                                                 bgColorCssClass)))
 
             ; lesson was added due to draggable <div>

                        "helper" "clone"
                        "revert" "invalid"
                        "start"  (lesson-draggable-start-evt-handler-maker
                                   moduleCode lessonType lessonLabel
                                   bgColorCssClass)
                        "stop"   (lesson-draggable-stop-evt-handler-maker
                                   moduleCode lessonType lessonLabel
                                   bgColorCssClass)))))

(defn- make-fake-lessons-droppable

              ; Update ModulesSelected with the lesson group
              (set! ModulesSelected
                    (assoc-in ModulesSelected [moduleCode lessonType]
                              {:label lessonGroup, :info lessonInfoSeq}))

              ; Add to ModulesSelectedOrder
              (if (not-any? #{moduleCode} ModulesSelectedOrder)
