 
 (defn- make-added-lessons-draggable
   "Makes the <div> elements of selected lessons draggable."
-  [$divElemSeq moduleCode lessonType lessonLabel bgColorCssClass]
+  [$divElemSeq moduleCode lessonType lessonGroup bgColorCssClass]
   ; And Drag event handler
   (doseq [$divElem $divElemSeq]
     (.css $divElem "cursor" "grab")


   Returns a sequence of `ModulesSelectedLessonInfo` objects each augmented
   with the `:divElem`, `:moduleCode`, `:lessonType`, `:lessonGroup` keys."
  [moduleCode lessonType lessonLabel bgColorCssClass isActuallySelected?]
  (if (module-has-lesson-group? moduleCode lessonType lessonLabel)
      (let [moduleName          (get-module-name-from-module-code moduleCode)
            modulesMapLessonSeq (get-ModulesMapLesson-seq moduleCode lessonType
                                                          lessonLabel)

            augLessonInfoSeq
            (doall (map (fn [modulesMapLesson]
                          (add-module-lesson! moduleCode moduleName lessonType
                                              lessonLabel modulesMapLesson
                                              bgColorCssClass
                                              isActuallySelected?))
                        modulesMapLessonSeq))

              ; 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)
