   [moduleCode lessonType lessonGroup]
   (let [lessonGroupsMap (get-module-lesson-groups-map moduleCode lessonType)]
     (not (nil? (get lessonGroupsMap lessonGroup)))))
+
+(defn- get-ModulesMapLesson-seq
+  "Returns a sequence of `ModulesMapLesson` objects representing all lessons
+   for a lesson group of the module."
+  [moduleCode lessonType lessonGroup]
+  (get (get-module-lesson-groups-map moduleCode lessonType) lessonGroup))
 
 (def ^{:doc     "Width in pixels of a half hour timeslot"
        :private true

    $divElem))

(defn- add-module-lesson!
  "Adds a single lesson of a module (obtained from the `ModulesMap` global) to
   the timetable.
   Returns a `ModulesSelectedLessonInfo` object augmented with the `:divElem`,
   `:moduleCode`, `:lessonType` and `:lessonGroup` keys."
  [moduleCode moduleName lessonType lessonLabel modulesMapLesson bgColorCssClass

                                   (:lessonType moduleInfo)
                                   (:lessonGroup moduleInfo)
                                   bgColorCssClass
                                   true))

        ; Update URL hash with newly added module
        (update-document-location-hash-with-new-module!
