diff --git a/src/Foundation.hs b/src/Foundation.hs index 283ae9df5..700f0a2ca 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -569,7 +569,7 @@ instance Yesod UniWorX where -- Define breadcrumbs. instance YesodBreadcrumbs UniWorX where breadcrumb (AuthR _) = return ("Login" , Just HomeR) - breadcrumb HomeR = return ("UniWorkY", Nothing) + breadcrumb HomeR = return ("Uni2work", Nothing) breadcrumb UsersR = return ("Benutzer", Just HomeR) breadcrumb AdminTestR = return ("Test" , Just HomeR) breadcrumb (AdminUserR _) = return ("Users" , Just UsersR) @@ -601,7 +601,7 @@ instance YesodBreadcrumbs UniWorX where -- Deprecated below breadcrumb SubmissionListR = return ("Abgaben", Just HomeR) -- Others - breadcrumb _ = return ("UniWorkY", Nothing) -- Default is no breadcrumb at all + breadcrumb _ = return ("Uni2work", Nothing) -- Default is no breadcrumb at all pageActions :: Route UniWorX -> [MenuTypes] pageActions (CourseR tid csh CShowR) = diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs index 1fc340912..d3e5d2353 100644 --- a/src/Handler/Admin.hs +++ b/src/Handler/Admin.hs @@ -46,7 +46,7 @@ getAdminTestR :: Handler Html -- Demo Page. Referenzimplementierungen sollte hie getAdminTestR = do (btnWdgt, btnEnctype) <- generateFormPost (buttonForm :: Form CreateButton) defaultLayout $ do - -- setTitle "UniWorkY Admin Testpage" + -- setTitle "Uni2work Admin Testpage" $(widgetFile "adminTest") postAdminTestR :: Handler Html diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs index 00e2c90c0..e8367a12c 100644 --- a/src/Handler/Home.hs +++ b/src/Handler/Home.hs @@ -169,6 +169,6 @@ homeUser uid = do } defaultLayout $ do - -- setTitle "Willkommen zum Uniworky Test!" + -- setTitle "Willkommen zum Uni2work Test!" $(widgetFile "homeUser") $(widgetFile "dsgvDisclaimer") diff --git a/src/Model/Types.hs b/src/Model/Types.hs index 3b0f1a084..f054899b2 100644 --- a/src/Model/Types.hs +++ b/src/Model/Types.hs @@ -236,6 +236,11 @@ instance Read Theme where -- generic Read-Instance for Show/Bounded | (Just t) <- (Map.lookup s readTheme) = [(t,"")] | otherwise = [(Default,"")] -- read shall always succeed +{- +instance Default Theme where + def = Default +-} + derivePersistField "Theme" diff --git a/templates/adminTest.hamlet b/templates/adminTest.hamlet index ac9d45c05..66e2b891c 100644 --- a/templates/adminTest.hamlet +++ b/templates/adminTest.hamlet @@ -1,7 +1,7 @@
Diese interne Seite dient lediglich zum Testen diverser Funktionalitäten diff --git a/templates/home.hamlet b/templates/home.hamlet index 01b241c6c..7c2a3b0af 100644 --- a/templates/home.hamlet +++ b/templates/home.hamlet @@ -7,7 +7,7 @@