Fixes #368. Dauerte so lange wegen 2x Hlint Durchläufen :(

messages/uniworx/de.msg

@@ -84,7 +84,6 @@ CourseTutorial: Tutorium
 CourseStudyFeatureTooltip: Korrekte Angabe kann Notenweiterleitungen beschleunigen
 CourseSecretWrong: Falsches Kennwort
 CourseSecret: Zugangspasswort
-CourseNewOk        tid@TermId ssh@SchoolId csh@CourseShorthand: Kurs #{display tid}-#{display ssh}-#{csh} wurde erfolgreich erstellt.
 CourseEditOk       tid@TermId ssh@SchoolId csh@CourseShorthand: Kurs #{display tid}-#{display ssh}-#{csh} wurde erfolgreich geändert.
 CourseNewDupShort  tid@TermId ssh@SchoolId csh@CourseShorthand: Kurs #{display tid}-#{display ssh}-#{csh} konnte nicht erstellt werden: Es gibt bereits einen anderen Kurs mit dem Kürzel #{csh} in diesem Semester.
 CourseEditDupShort tid@TermId ssh@SchoolId csh@CourseShorthand: Kurs #{display tid}-#{display ssh}-#{csh} konnte nicht geändert werden: Es gibt bereits einen anderen Kurs mit dem Kürzel #{csh} in diesem Semester.

src/Foundation.hs

@@ -1815,6 +1815,16 @@ pageActions (TermCourseListR tid) =
       , menuItemAccessCallback' = return True
       }
   ]
+pageActions (TermSchoolCourseListR _tid _ssh) =
+  [ MenuItem
+      { menuItemType = PageActionPrime
+      , menuItemLabel = MsgMenuCourseNew
+      , menuItemIcon  = Just "book"
+      , menuItemRoute = SomeRoute CourseNewR
+      , menuItemModal = False
+      , menuItemAccessCallback' = return True
+      }
+  ]
 pageActions (CourseListR) =
   [ MenuItem
       { menuItemType = PageActionPrime

src/Handler/Course.hs

@@ -232,7 +232,7 @@ getTermCurrentR = do
   termIds  <- runDB $ selectKeysList [TermActive ==. True] [Desc TermName]
   case fromNullable termIds of
     Nothing -> notFound
-    (Just (maximum -> tid)) -> -- getTermCourseListR tid
+    (Just (maximum -> tid)) ->
         redirect $ TermCourseListR tid -- redirect avoids problematic breadcrumbs, headings, etc.
 
 getTermSchoolCourseListR :: TermId -> SchoolId -> Handler Html
@@ -614,8 +614,8 @@ courseEditHandler miButtonAction mbCourseForm = do
             return insertOkay
           case insertOkay of
             Just _ -> do
-              addMessageI Info $ MsgCourseNewOk tid ssh csh
-              redirect $ TermCourseListR tid
+              -- addMessageI Info $ MsgCourseNewOk tid ssh csh
+              redirect $ CourseR tid ssh csh CShowR
             Nothing ->
               addMessageI Warning $ MsgCourseNewDupShort tid ssh csh