 
         $divElem
         (create-lesson-div :moduleCode moduleCode, :moduleName moduleName,
-                           :lessonType lessonType, :lessonGroup lessonLabel,
+                           :lessonType lessonType, :lessonGroup lessonGroup,
                            :venue venue, :slotsOcc slotsOcc,
                            :bgColorCssClass bgColorCssClass,
                            :isActuallySelected? isActuallySelected?)]

  "Adds a single lesson of a module the timetable.
   Returns a `ModulesSelectedLessonInfo` object augmented with the `:divElem`,
   `:moduleCode`, `:lessonType` and `:lessonGroup` keys."
  [moduleCode moduleName lessonType lessonLabel modulesMapLesson bgColorCssClass
   isActuallySelected?]
  (let [rowNum    (find-free-row-for-lesson modulesMapLesson)
        day       (:day modulesMapLesson)

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

(defn- make-fake-lessons-droppable
