From f52b831f38cb408a973f48693e9eb3bc7717fd3e Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Tue, 14 May 2019 22:58:49 +0200
Subject: [PATCH] =?UTF-8?q?Fixes=20#368.=20Dauerte=20so=20lange=20wegen=20?=
 =?UTF-8?q?2x=20Hlint=20Durchl=C3=A4ufen=20=20:(?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 messages/uniworx/de.msg |  1 -
 src/Foundation.hs       | 10 ++++++++++
 src/Handler/Course.hs   |  6 +++---
 3 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index c20d2af83..115b31552 100644
--- a/messages/uniworx/de.msg
+++ b/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.
diff --git a/src/Foundation.hs b/src/Foundation.hs
index 65f897acb..11c865ef9 100644
--- a/src/Foundation.hs
+++ b/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
diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs
index e75e27698..594e307ce 100644
--- a/src/Handler/Course.hs
+++ b/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