diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 7cf47ae44..89e20f559 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -232,8 +232,6 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do mArCid <- fmap ZIPArchiveName <$> traverse encrypt msmid - let pageTitle = MsgSubmissionEditHead tid csh shn - let formTitle = pageTitle let formText = Nothing :: Maybe UniWorXMessage actionUrl <- Data.Maybe.fromJust <$> getCurrentRoute -- Maybe construct a table to display uploaded archive files @@ -261,19 +259,8 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do mFileTable <- traverse (dbTable def) . fmap smid2ArchiveTable $ (,) <$> msmid <*> mcid defaultLayout $ do - setTitleI pageTitle - $(widgetFile "formPageI18n") - [whamlet| - $maybe arCid <- mArCid -
-

- Archiv - $forall (name,time) <- lastEdits -
last edited by #{name} at #{formatTimeGerDTlong time} - $maybe fileTable <- mFileTable -

Enthaltene Dateien: - ^{fileTable} - |] + setTitleI $ MsgSubmissionEditHead tid csh shn + $(widgetFile "submission") getSubmissionDownloadSingleR :: TermId -> Text -> Text -> CryptoFileNameSubmission -> FilePath -> Handler TypedContent diff --git a/templates/submission.hamlet b/templates/submission.hamlet index 0529e94aa..eeb48a99d 100644 --- a/templates/submission.hamlet +++ b/templates/submission.hamlet @@ -1,54 +1,15 @@ -
-  #{tshow submissionId}
-  #{tshow submission}
+$maybe arCid <- mArCid
+  
+    

+ Archiv + $forall (name,time) <- lastEdits +
last edited by #{name} at #{formatTimeGerDTlong time} + $maybe fileTable <- mFileTable +

Enthaltene Dateien: + ^{fileTable} - - $maybe ratingTime' <- ratingTime - - - - -
Bewertet - #{tshow ratingTime'} - $maybe points <- ratingPoints -
Punkte - #{tshow points} - $maybe comment <- ratingComment -
Kommentar - -
#{comment}
-  $nothing
-    
Noch nicht bewertet +
-