fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Sheet file edit times shown

Browse Source
This commit is contained in:
SJost 2018-05-04 10:36:50 +02:00
parent 4862337a01
commit 1218f93944
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Sheet.hs
View File

@ -185,8 +185,8 @@ getSheetShowR tid csh shn = do
-- filter to requested file -- filter to requested file
E.where_ (sheet E.^. SheetId E.==. E.val sid ) E.where_ (sheet E.^. SheetId E.==. E.val sid )
-- return desired columns -- return desired columns
return $ (file E.^. FileTitle, sheetFile E.^. SheetFileType) return $ (file E.^. FileTitle, file E.^. FileModified, sheetFile E.^. SheetFileType)
let fileLinks = map (\(E.Value fName, E.Value fType) -> CSheetR tid csh (SheetFileR shn fType fName)) fileNameTypes let fileLinks = map (\(E.Value fName, E.Value modified, E.Value fType) -> (CSheetR tid csh (SheetFileR shn fType fName),modified)) fileNameTypes
defaultLayout $ do defaultLayout $ do
setTitle $ toHtml $ T.append "Übung " $ sheetName sheet setTitle $ toHtml $ T.append "Übung " $ sheetName sheet
$(widgetFile "sheetShow") $(widgetFile "sheetShow")

5
templates/sheetShow.hamlet
View File

@ -26,14 +26,15 @@
<div .col-lg-12> <div .col-lg-12>
<h2>Dateien <h2>Dateien
<ul> <ul>
$forall fileLink <- fileLinks $forall (fileLink,modified) <- fileLinks
<li> <li>
$case fileLink $case fileLink
$of CourseR _ _ (SheetR (SheetFileR _ typ name)) $of CourseR _ _ (SheetR (SheetFileR _ typ name))
#{toPathPiece typ} #{toPathPiece typ}
<a href=@{fileLink}>#{name} <a href=@{fileLink}>#{name}
#{formatTimeGerWDT modified}
$of other $of other
<a href=@{fileLink}>@{fileLink} <a href=@{fileLink}>@{fileLink}
#{formatTimeGerWDT modified}
<hr> <hr>