UX Hilfe Online Korrektur

messages/uniworx/de.msg

@@ -7,6 +7,7 @@ BtnRegister: Anmelden
 BtnDeregister: Abmelden
 BtnHijack: Sitzung übernehmen
 BtnSave: Speichern
+PressSaveToSave: Änderungen werden erst durch Drücken des Knopfes "Speichern" gespeichert.
 BtnCandidatesInfer: Studienfachzuordnung automatisch lernen
 BtnCandidatesDeleteConflicts: Konflikte löschen
 BtnCandidatesDeleteAll: Alle Beobachtungen löschen
@@ -16,6 +17,8 @@ BtnLecInvDecline: Ablehnen
 BtnCorrInvAccept: Annehmen
 BtnCorrInvDecline: Ablehnen
 
+
+
 Aborted: Abgebrochen
 Remarks: Hinweise
 Registered: Angemeldet

src/Handler/Corrections.hs

@@ -617,7 +617,7 @@ postCorrectionR tid ssh csh shn cid = do
         <$> areq checkBoxField (fslI MsgRatingDone) (Just $ submissionRatingDone Submission{..})
         <*> pointsForm
         <*> (((\t -> t <$ guard (not $ null t)) =<<) . fmap (Text.strip . unTextarea) <$> aopt textareaField (fslI MsgRatingComment) (Just $ Textarea <$> submissionRatingComment))
-      let corrForm = wrapForm corrForm' def
+      let corrForm = wrapForm' BtnSave corrForm' def
             { formAction = Just . SomeRoute $ CSubmissionR tid ssh csh shn cid CorrectionR
             , formEncoding = corrEncoding
             }
@@ -948,9 +948,10 @@ postSAssignR tid ssh csh shn cID = do
                   ]
       addMessageI Success MsgCorrectorUpdated
     redirect actionUrl
-  let corrForm = wrapForm corrForm' def
+  let corrForm = wrapForm' BtnSave corrForm' def
         { formAction = Just $ SomeRoute actionUrl
         , formEncoding = corrEncoding
+        , formSubmit = FormDualSubmit
         }
   defaultLayout $ do
       setTitleI MsgCorrectorAssignTitle

templates/submission-assign.hamlet

@@ -1 +1,3 @@
+<p>
+  _{MsgPressSaveToSave}
 ^{corrForm}