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

minor fixes

Browse Source
This commit is contained in:
Gregor Kleen 2018-05-29 17:48:40 +02:00
parent 4c47289c00
commit cbc145a56c
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Foundation.hs
View File

@ -618,7 +618,7 @@ instance YesodBreadcrumbs UniWorX where
breadcrumb (CSheetR tid csh shn SShowR) = return (shn, Just $ CourseR tid csh SheetListR)
breadcrumb (CSheetR tid csh shn SEditR) = return ("Edit", Just $ CSheetR tid csh shn SShowR)
breadcrumb (CSheetR tid csh shn SDelR ) = return ("DELETE", Just $ CSheetR tid csh shn SShowR)
-- breadcrumb (CSheetR tid csh shn SCorrR) = return ("Korrektoren", Just $ CSheetR tid csh shn SShowR)
breadcrumb (CSheetR tid csh shn SCorrR) = return ("Korrektoren", Just $ CSheetR tid csh shn SShowR)
breadcrumb (CSheetR tid csh shn (SubmissionR _)) = return ("Abgabe", Just $ CSheetR tid csh shn SShowR)
breadcrumb SubmissionListR = return ("Abgaben", Just HomeR)
@ -659,12 +659,12 @@ pageActions (CSheetR tid csh shn SShowR) =
, menuItemRoute = CSheetR tid csh shn (SubmissionR NewSubmission)
, menuItemAccessCallback' = return True
}
-- , PageActionPrime $ MenuItem
-- { menuItemLabel = "Korrektoren"
-- , menuItemIcon = Nothing
-- , menuItemRoute = CSheetR tid csh shn SCorrR
-- , menuItemAccessCallback' = return True
-- }
, PageActionPrime $ MenuItem
{ menuItemLabel = "Korrektoren"
, menuItemIcon = Nothing
, menuItemRoute = CSheetR tid csh shn SCorrR
, menuItemAccessCallback' = return True
}
]
pageActions TermShowR =
[ PageActionPrime $ MenuItem

6
src/Handler/Sheet.hs
View File

@ -547,7 +547,11 @@ correctorForm shid = do
, fvRequired = True
}
, addTutView
{ fvInput = fvInput addTutView >> toWidget [hamlet|<button type=submit formnovalidate>Hinzufügen|]
{ fvInput = [whamlet|
<div>
^{fvInput addTutView}
<button type=submit formnovalidate>Hinzufügen
|]
}
])