       }
   HTML-Timetable (vec ($ :.day-container)))
 
+(defn- get-css-hour-minute-classes-for-time
+  "Returns the .hXX and .mXX classes for a 0-indexed time"
+  [timeIdx]
+  (let [time50 (time-helper/convert-time-index-to-mult-of-50-int timeIdx)
+        hour   (quot time50 100)
+        minute (rem time50 100)]
+    [(str "h" (if (< hour 10) "0" "") hour)
+     (str "m" (if (not= minute 0) "30" "00"))]))
+
+(defn- $html-timetable-get-td-from-day-row-startTimeIdx
+  "Given a day, row and start time index of a lesson, retrieves the
+   jQuery object for the <td> element in the HTML representation of the
+   Timetable."
+  [day rowNum timeIdx]
+  (let [$day (nth HTML-Timetable day)
+        $row (nth (children $day "tr") rowNum)
+
+        [hourClass minuteClass]
+        (get-css-hour-minute-classes-for-time timeIdx)]
+    (nth (children $row (str "td" "." hourClass "." minuteClass)) 0)))
+
 (defn- create-empty-timetable-row
   "Creates an in-memory representation of an empty timetable row.
 

        {:foundFreeRow false, :rowIndex 0}
        ttDay))))

(defn- get-css-hour-minute-classes-for-time
  "Returns the .hXX and .mXX classes for a 0-indexed time"
  [timeIdx]
  (let [time50 (time-helper/convert-time-index-to-mult-of-50-int timeIdx)
        hour   (quot time50 100)
        minute (rem time50 100)]
    [(str "h" (if (< hour 10) "0" "") hour)
     (str "m" (if (not= minute 0) "30" "00"))]))

(defn- create-lesson-div
  "Creates a <div> element for a new lesson using jQuery"
  [& {:keys [moduleCode moduleName lessonType lessonGroup venue slotsOcc

        startTime               (:startTime augTTLessonInfo)
        endTime                 (:endTime augTTLessonInfo)
        slotsOccupied           (- endTime startTime)

        $sourceTd
        ($html-timetable-get-td-from-day-row-startTimeIdx day sourceRowNum
                                                          startTime)

        $destTd
        ($html-timetable-get-td-from-day-row-startTimeIdx day destinationRowNum
                                                          startTime)

        ttLessonInfo            (dissoc augTTLessonInfo :day :rowNum)]
    (.log js/console (str "day = " day ", sourceRowNum = " sourceRowNum ", destinationRowNum = " destinationRowNum))
    ; Transfer lesson <div> to the destination <td>
