                  ttLessonInfo {:moduleCode moduleCode, :lessonType lessonType,
                                :lessonGroup lessonGroup, :startTime startTime,
                                :endTime endTime}
-                 $lessonDiv   (get ttRow ttLessonInfo)
-                 $parentTd    (parent $lessonDiv)]
-             ; Remove the `colspan` attribute of the parent <td> so it has
-             ; colspan=1
-             (remove-attr $parentTd "colspan")
-             ; Remove the HTML div elem
-             (.remove $lessonDiv)
-             ; Add the missing <td> elements
-             (add-missing-td-elements-replacing-lesson $parentTd ttLessonInfo)
+                 $lessonDiv   (get ttRow ttLessonInfo)]
+             ($lesson-div-remove $lessonDiv startTime endTime)
              (assoc ttLessonInfo :day day, :rowNum rowNum)))
          lessonInfoSeq)))
 

                   notSelectedLessonGroups)))]
      (set! Lessons-Created-By-Draggable augmentedTTLessonInfoSeq))))

(defn- lesson-draggable-stop-evt-handler-maker
  "Returns a function used as the `stop` event handler for a draggable lesson."
  [moduleCode lessonType lessonGroup bgColorCssClass]

                                          :rowNum)))

      (doseq [augTTLessonInfo Lessons-Created-By-Draggable]
        (let [$divElem  (:divElem augTTLessonInfo)]
          ($lesson-div-remove $divElem (:startTime augTTLessonInfo)
                              (:endTime augTTLessonInfo))))

      (timetable-prune-empty-rows affectedDaysSet)
      (set! Lessons-Created-By-Draggable nil)
