                                  bgColorCssClass)))
 
     ; Update url hash
-    (set-document-location-hash moduleInfoFinal)))
+    (set-document-location-hash-from-module-info-seq moduleInfoFinal)))
 
 (defn remove-module
   "Removes a module from the timetable.

  [moduleCode]
  (let [containsModule (contains? ModulesSelected moduleCode)]
    containsModule))

(def ^{:doc "Vector of <tBody> objects representing the days of the timetable
             in the Timetable Builder page"

                         :lessonGroup lessonGroup}))
                    (keys lessonTypesMap))))
           moduleCodesSeq))))

(defn add-module-lesson-groups-from-url-hash
  "Adds the module lesson groups available in the url hash. Erroneous lesson
