From 0988ac0dd8a1474540c7725d0131485c244d76bc Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Mon, 13 May 2019 17:39:26 +0200
Subject: [PATCH] Rename HandIn Button. Fixes #340

---
 src/Handler/Submission.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs
index c843f7e1e..bdad11b37 100644
--- a/src/Handler/Submission.hs
+++ b/src/Handler/Submission.hs
@@ -355,7 +355,7 @@ submissionHelper tid ssh csh shn mcid = do
             forM raw $ \(E.Value name, E.Value time) -> (name, ) <$> formatTime SelFormatDateTime time
         return (csheet,buddies,lastEdits,maySubmit,isLecturer,isOwner)
   ((res,formWidget'), formEnctype) <- runFormPost . makeSubmissionForm sheetCourse msmid (fromMaybe (Upload True) . submissionModeUser $ sheetSubmissionMode) sheetGrouping isLecturer $ bool id (Set.insert $ Right uid) isOwner buddies
-  let formWidget = wrapForm formWidget' def
+  let formWidget = wrapForm' BtnHandIn formWidget' def
         { formAction = Just $ SomeRoute actionUrl
         , formEncoding = formEnctype
         }