This commit is contained in:
SJost 2018-04-19 11:27:10 +02:00
parent 7329c84304
commit 3bd9a2a483

View File

@ -204,11 +204,14 @@ postSubmissionR tid csh shn (SubmissionMode mcid) = do
$maybe (cid, arCid) <-mCidArCid $maybe (cid, arCid) <-mCidArCid
<hr> <hr>
<h2> <h2>
<a href=@{SubmissionDownloadArchiveR arCid}>Archive <a href=@{SubmissionDownloadArchiveR arCid}>Archiv
<h3>Enthaltene Dateien: <h3>Enthaltene Dateien:
$forall (Entity _ File{..}) <- oldfiles $forall (Entity _ File{..}) <- oldfiles
<a href=@{SubmissionDownloadSingleR cid fileTitle}> <a href=@{SubmissionDownloadSingleR cid fileTitle}>
#{fileTitle} #{fileTitle}
<h2>
Last Edits
TODO
|] |]