diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index 2f846eadd..a243e5297 100644 --- a/messages/uniworx/de.msg +++ b/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 diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index 01af2b880..0cf975867 100644 --- a/src/Handler/Corrections.hs +++ b/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 diff --git a/templates/submission-assign.hamlet b/templates/submission-assign.hamlet index 9b3911766..2caf92979 100644 --- a/templates/submission-assign.hamlet +++ b/templates/submission-assign.hamlet @@ -1 +1,3 @@ +

+ _{MsgPressSaveToSave} ^{corrForm}