Surpress MsgMassInputTip for common case of single submission sheets

messages/uniworx/de.msg

@@ -8,6 +8,7 @@ BtnDeregister: Abmelden
 BtnHijack: Sitzung übernehmen
 BtnSave: Speichern
 PressSaveToSave: Änderungen werden erst durch Drücken des Knopfes "Speichern" gespeichert.
+BtnHandIn: Abgeben
 BtnCandidatesInfer: Studienfachzuordnung automatisch lernen
 BtnCandidatesDeleteConflicts: Konflikte löschen
 BtnCandidatesDeleteAll: Alle Beobachtungen löschen
@@ -203,6 +204,7 @@ SubmissionAlreadyExists: Sie haben bereits eine Abgabe zu diesem Übungsblatt.
 SubmissionEditHead tid@TermId ssh@SchoolId csh@CourseShorthand sheetName@SheetName: #{display tid}-#{display ssh}-#{csh} #{sheetName}: Abgabe editieren/anlegen
 CorrectionHead     tid@TermId ssh@SchoolId csh@CourseShorthand sheetName@SheetName cid@CryptoFileNameSubmission: #{display tid}-#{display ssh}-#{csh} #{sheetName}: Korrektur
 SubmissionMembers: Abgebende
+SubmissionMember: Abgebende(r)
 SubmissionArchive: Zip-Archiv der Abgabedatei(en)
 SubmissionFile: Datei zur Abgabe
 SubmissionFiles: Abgegebene Dateien
@@ -957,7 +959,7 @@ TutorialCreated tutn@TutorialName: Tutorium #{tutn} erfolgreich angelegt
 
 TutorialEditHeading tutn@TutorialName: #{tutn} bearbeiten
 
-MassInputTip: Es können mehrere Werte angegeben werden. Werte müssen mit + zur Liste hinzugefügt werden und können mit - wieder entfernt werden. Die Liste wird zunächst nur lokal in Ihrem Browser gespeichert und muss noch zusammen mit dem Rest des Formulars Gesendet werden.
+MassInputTip: Es können mehrere Werte angegeben werden. Werte müssen mit + zur Liste hinzugefügt werden und können mit - wieder entfernt werden. Alle Änderungen müssen noch durch Drücken des Forumular-Knopfes bestätigt werden.
 
 HealthReport: Instanz-Zustand
 InstanceIdentification: Instanz-Identifikation

src/Handler/Submission.hs

@@ -162,9 +162,18 @@ makeSubmissionForm cid msmid uploadMode grouping isLecturer prefillUsers = ident
     addField :: (MonadHandler m, HandlerSite m ~ UniWorX) => Bool -> Field m (Set (Either UserEmail UserId))
     addField isAdmin = multiUserField True $ courseUsers <$ guard isAdmin
 
-    addFieldSettings, submittorSettings :: FieldSettings UniWorX
-    addFieldSettings = fslI MsgSubmissionMembers
+    addFieldSettings, submittorSettings, singleSubSettings :: FieldSettings UniWorX
+    addFieldSettings  = fslI MsgSubmissionMembers
     submittorSettings = fslI MsgSubmissionMembers & setTooltip MsgMassInputTip
+    singleSubSettings = fslI MsgSubmissionMember
+
+    maxSize | Arbitrary{..} <- grouping = Just maxParticipants
+            | otherwise = Nothing
+    mayEdit = is _Arbitrary grouping
+
+    submittorSettings'
+      | maxSize > Just 1 = submittorSettings
+      | otherwise        = singleSubSettings
 
     miButtonAction' :: forall p. PathPiece p => Maybe (Route UniWorX) -> p -> Maybe (SomeRoute UniWorX)
     miButtonAction' mCurrent frag = mCurrent <&> \current -> SomeRoute (current :#: frag)
@@ -195,11 +204,6 @@ makeSubmissionForm cid msmid uploadMode grouping isLecturer prefillUsers = ident
         mRoute <- getCurrentRoute
 
         let
-          maxSize
-            | Arbitrary{..} <- grouping = Just maxParticipants
-            | otherwise = Nothing
-          mayEdit = is _Arbitrary grouping
-
           miAdd :: ListPosition
                 -> Natural
                 -> (Text -> Text)
@@ -248,7 +252,7 @@ makeSubmissionForm cid msmid uploadMode grouping isLecturer prefillUsers = ident
 
           postProcess :: Map ListPosition (Either UserEmail UserId, ()) -> Set (Either UserEmail UserId)
           postProcess = setOf $ folded . _1
-        fmap postProcess <$> massInputW MassInput{..} submittorSettings True (Just . Map.fromList . zip [0..] . map (, ()) $ Set.toList prefillUsers)
+        fmap postProcess <$> massInputW MassInput{..} submittorSettings' True (Just . Map.fromList . zip [0..] . map (, ()) $ Set.toList prefillUsers)
 
 
 getSubmissionNewR, postSubmissionNewR :: TermId -> SchoolId -> CourseShorthand -> SheetName -> Handler Html

src/Handler/Utils/Form.hs

@@ -75,14 +75,27 @@ instance Finite ButtonSave
 saveButton :: (Button (HandlerSite m) ButtonSave, MonadHandler m) => AForm m ()
 saveButton = combinedButtonFieldF_ (Proxy @ButtonSave) ""
 
-
-
 nullaryPathPiece ''ButtonSave $ camelToPathPiece' 1
 
 embedRenderMessage ''UniWorX ''ButtonSave id
 instance Button UniWorX ButtonSave where
   btnClasses BtnSave = [BCIsButton, BCPrimary]
 
+
+
+data ButtonHandIn = BtnHandIn
+  deriving (Enum, Eq, Ord, Bounded, Read, Show, Generic, Typeable)
+instance Universe ButtonHandIn
+instance Finite ButtonHandIn
+
+nullaryPathPiece ''ButtonHandIn $ camelToPathPiece' 1
+
+embedRenderMessage ''UniWorX ''ButtonHandIn id
+instance Button UniWorX ButtonHandIn where
+  btnClasses BtnHandIn = [BCIsButton, BCPrimary]
+
+
+
 data ButtonRegister = BtnRegister | BtnDeregister
   deriving (Enum, Eq, Ord, Bounded, Read, Show, Generic, Typeable)
 instance Universe ButtonRegister