renamed a few pageactions

This commit is contained in:
Felix Hamann 2018-06-10 19:36:39 +02:00
parent bd0b50fc97
commit c54495fe58

View File

@ -574,7 +574,7 @@ pageActions (CourseR tid csh CShowR) =
] ]
pageActions (CourseR tid csh SheetListR) = pageActions (CourseR tid csh SheetListR) =
[ PageActionPrime $ MenuItem [ PageActionPrime $ MenuItem
{ menuItemLabel = "Neues Übungsblatt" { menuItemLabel = "Neues Übungsblatt anlegen"
, menuItemIcon = Nothing , menuItemIcon = Nothing
, menuItemRoute = CourseR tid csh SheetNewR , menuItemRoute = CourseR tid csh SheetNewR
, menuItemAccessCallback' = return True , menuItemAccessCallback' = return True
@ -596,7 +596,7 @@ pageActions (CSheetR tid csh shn SShowR) =
] ]
pageActions TermShowR = pageActions TermShowR =
[ PageActionPrime $ MenuItem [ PageActionPrime $ MenuItem
{ menuItemLabel = "Neues Semester" { menuItemLabel = "Neues Semester anlegen"
, menuItemIcon = Nothing , menuItemIcon = Nothing
, menuItemRoute = TermEditR , menuItemRoute = TermEditR
, menuItemAccessCallback' = return True , menuItemAccessCallback' = return True
@ -604,7 +604,7 @@ pageActions TermShowR =
] ]
pageActions (TermCourseListR _) = pageActions (TermCourseListR _) =
[ PageActionPrime $ MenuItem [ PageActionPrime $ MenuItem
{ menuItemLabel = "Neuer Kurs" { menuItemLabel = "Neuen Kurs anlegen"
, menuItemIcon = Just "book" , menuItemIcon = Just "book"
, menuItemRoute = CourseNewR , menuItemRoute = CourseNewR
, menuItemAccessCallback' = return True , menuItemAccessCallback' = return True