fraport/fradrive-old
Archived
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 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 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 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 (CSheetR tid csh shn (SubmissionR _)) = return ("Abgabe", Just $ CSheetR tid csh shn SShowR)
breadcrumb SubmissionListR = return ("Abgaben", Just HomeR) breadcrumb SubmissionListR = return ("Abgaben", Just HomeR)
@ -659,12 +659,12 @@ pageActions (CSheetR tid csh shn SShowR) =
, menuItemRoute = CSheetR tid csh shn (SubmissionR NewSubmission) , menuItemRoute = CSheetR tid csh shn (SubmissionR NewSubmission)
, menuItemAccessCallback' = return True , menuItemAccessCallback' = return True
} }
-- , PageActionPrime $ MenuItem , PageActionPrime $ MenuItem
-- { menuItemLabel = "Korrektoren" { menuItemLabel = "Korrektoren"
-- , menuItemIcon = Nothing , menuItemIcon = Nothing
-- , menuItemRoute = CSheetR tid csh shn SCorrR , menuItemRoute = CSheetR tid csh shn SCorrR
-- , menuItemAccessCallback' = return True , menuItemAccessCallback' = return True
-- } }
] ]
pageActions TermShowR = pageActions TermShowR =
[ PageActionPrime $ MenuItem [ PageActionPrime $ MenuItem

6
src/Handler/Sheet.hs
View File

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