fradrive/templates/sheetShow.hamlet
2018-05-04 10:36:50 +02:00

41 lines
1.4 KiB
Plaintext

<div .masthead>
<div .container>
<div .row>
<h1 .header>
#{sheetName sheet}
<div .container>
<div .bs-docs-section>
<div .row>
<div .col-lg-12>
<div .page-header>
$maybe descr <- sheetDescription sheet
<h2 #description>Hinweise
<p> #{descr}
<h3>Bewertung
<p> #{show $ sheetType sheet}
$maybe marking <- sheetMarkingText sheet
<p> #{marking}
<br>
Freigeschaltet ab:
\ #{formatTimeGerWD $ sheetActiveFrom sheet}
\ Abgabe bis:
\ #{formatTimeGerWD $ sheetActiveTo sheet}
<div .row>
<div .col-lg-12>
<h2>Dateien
<ul>
$forall (fileLink,modified) <- fileLinks
<li>
$case fileLink
$of CourseR _ _ (SheetR (SheetFileR _ typ name))
#{toPathPiece typ}
<a href=@{fileLink}>#{name}
#{formatTimeGerWDT modified}
$of other
<a href=@{fileLink}>@{fileLink}
#{formatTimeGerWDT modified}
<hr>