               (update-ModulesSelected-with-lesson-group! moduleCode lessonType
                                                          lessonGroup
                                                          lessonInfoSeq)
-              (if (module-not-in-ModulesSelectedOrder? moduleCode)
-                  (do
-                    (add-to-ModulesSelectedOrder! moduleCode)
-                    (add-module-to-exam-timetable! moduleCode bgColorCssClass)
-                    ; Micro optimization for modules added via url hash
-                    ; during initialization
-                    (if (not addedViaUrlHashInit?)
-                        (select2-box-update-modules!))))
 
               ; Only lesson types with more than 1 option of lesson group
               ; will be draggable

                         moduleInfoExistent)))

        moduleInfoFinal
        (get-module-info-from-url-hash-module-info moduleInfoExistent)]

    (.log js/console (str "moduleInfoExistent = " (.stringify js/JSON (clj->js moduleInfoExistent))))
    (.log js/console (str "moduleInfoFinal = " (.stringify js/JSON (clj->js moduleInfoFinal))))
    ; Add the module lesson groups
    (doseq [modInfo moduleInfoFinal]
      (let [moduleCode      (:moduleCode modInfo)

                             moduleCode lessonType)}))
                  []
                  lessonTypes)]

      (add-to-ModulesSelectedOrder! moduleCode)
      (add-module-to-exam-timetable! moduleCode bgColorCssClass)
      (select2-box-update-modules!)

      (doseq [moduleInfo newModInfoSeq]
        (add-module-lesson-group! (:moduleCode moduleInfo)
