From 0bde8d5888934ff5ba0eedab21ce98f4f9844912 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 30 Jan 2019 19:27:10 +0100
Subject: [PATCH] Fast Bugfix: course Register from

---
 messages/uniworx/de.msg | 2 +-
 src/Foundation.hs       | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index c7c7f8574..be30c01cf 100644
--- a/messages/uniworx/de.msg
+++ b/messages/uniworx/de.msg
@@ -70,7 +70,7 @@ CourseSemester: Semester
 CourseSchool: Institut
 CourseSchoolShort: Fach
 CourseSecretTip: Anmeldung zum Kurs erfordert Eingabe des Passworts, sofern gesetzt
-CourseRegisterFromTip: Ohne Datum ist keine eigenständige Anmeldung von Studierenden möglich
+CourseRegisterFromTip: Ohne Datum ist KEINE eigenständige Anmeldung von Studierenden möglich
 CourseRegisterToTip: Anmeldung darf auch ohne Begrenzung möglich sein
 CourseDeregisterUntilTip: Abmeldung darf auch ohne Begrenzung möglich sein
 CourseFilterSearch: Volltext-Suche
diff --git a/src/Foundation.hs b/src/Foundation.hs
index 9ac8fb834..c77329d52 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -473,7 +473,7 @@ tagAccessPredicate AuthTime = APDB $ \route _ -> case route of
     case mbc of
       (Just (Entity _ Course{courseRegisterFrom, courseRegisterTo}))
         | not registered
-        , courseRegisterFrom <= nBot cTime
+        , NTop courseRegisterFrom <= cTime -- Nothing => always False!
         , NTop courseRegisterTo   >= cTime -> return Authorized
       (Just (Entity _ Course{courseDeregisterUntil}))
         | registered
@@ -1459,7 +1459,7 @@ pageActions (CSubmissionR tid ssh csh shn cid SubShowR) =
   , MenuItem
       { menuItemType = PageActionSecondary
       , menuItemLabel = MsgMenuSubmissionDelete
-      , menuItemIcon  = Nothing
+      , menuItemIcon  = Just "trash"
       , menuItemRoute = SomeRoute $ CSubmissionR tid ssh csh shn cid SubDelR
       , menuItemModal = False
       , menuItemAccessCallback' = return True