Convenience for AuthPreds

messages/uniworx/de.msg

@@ -592,6 +592,7 @@ MenuSheetClone:  Als neues Übungsblatt klonen
 MenuCorrectionsUpload: Korrekturen hochladen
 MenuCorrectionsCreate: Abgaben registrieren
 MenuCorrectionsGrade: Abgaben bewerten
+MenuAuthPreds: Authorisierungseinstellungen
 
 AuthPredsActive: Aktive Authorisierungsprädikate
 AuthPredsActiveChanged: Authorisierungseinstellungen für aktuelle Sitzung gespeichert

src/Foundation.hs

@@ -1206,6 +1206,14 @@ pageActions (ProfileR) =
       , menuItemModal = False
       , menuItemAccessCallback' = return True
       }
+  -- , MenuItem
+  --     { menuItemType = PageActionSecondary
+  --     , menuItemLabel = MsgMenuAuthPreds
+  --     , menuItemIcon  = Nothing
+  --     , menuItemRoute = SomeRoute AuthPredsR
+  --     , menuItemModal = True
+  --     , menuItemAccessCallback' = return True
+  --     }
   ]
 pageActions TermShowR =
   [ MenuItem

src/Handler/Home.hs

@@ -268,7 +268,8 @@ postAuthPredsR = do
 
   ((authActiveRes, authActiveWidget), authActiveEnctype) <- runFormPost . renderAForm FormStandard
     $ AuthTagActive
-      <$> funcForm taForm (fslI MsgActiveAuthTags) True
+      <$> (submitButton -- for convenience, avoids frequent scrolling
+      *>  funcForm taForm (fslI MsgActiveAuthTags) True)
       <*  submitButton
 
   mReferer <- runMaybeT $ do