diff --git a/db.hs b/db.hs index dc5ed8f3d..a58d443fa 100755 --- a/db.hs +++ b/db.hs @@ -207,7 +207,7 @@ fillDb = do , courseSchool = ifi , courseCapacity = Just 20 , courseRegisterFrom = Just now - , courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now ) + , courseRegisterTo = Just (nominalDay `addUTCTime` now ) , courseDeregisterUntil = Nothing , courseRegisterSecret = Nothing , courseMaterialFree = True @@ -251,7 +251,7 @@ fillDb = do , courseSchool = ifi , courseCapacity = Just 20 , courseRegisterFrom = Just now - , courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now ) + , courseRegisterTo = Just (nominalDay `addUTCTime` now ) , courseDeregisterUntil = Nothing , courseRegisterSecret = Nothing , courseMaterialFree = True