diff --git a/routes b/routes index 3345988ee..b8f1b3ccf 100644 --- a/routes +++ b/routes @@ -34,6 +34,7 @@ /users UsersR GET -- no tags, i.e. admins only /admin/test AdminTestR GET POST /admin/user/#CryptoUUIDUser AdminUserR GET +/info VersionR GET !free /profile ProfileR GET POST !free !free /profile/data ProfileDataR GET !free !free diff --git a/src/Foundation.hs b/src/Foundation.hs index a0c11f56d..1a9b854c7 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -576,6 +576,7 @@ instance YesodBreadcrumbs UniWorX where breadcrumb UsersR = return ("Benutzer", Just HomeR) breadcrumb AdminTestR = return ("Test" , Just HomeR) breadcrumb (AdminUserR _) = return ("Users" , Just UsersR) + breadcrumb VersionR = return ("Info" , Just HomeR) breadcrumb ProfileR = return ("Profile" , Just HomeR) breadcrumb ProfileDataR = return ("Data" , Just ProfileR) diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs index 079c703ee..4e68486af 100644 --- a/src/Handler/Home.hs +++ b/src/Handler/Home.hs @@ -99,7 +99,7 @@ homeAnonymous = do , dbtAttrs = tableDefault , dbtIdent = "upcomingdeadlines" :: Text } - + let features = $(widgetFile "featureList") defaultLayout $ do $(widgetFile "dsgvDisclaimer") $(widgetFile "home") @@ -167,8 +167,14 @@ homeUser uid = do , dbtAttrs = tableDefault , dbtIdent = "upcomingdeadlines" :: Text } - defaultLayout $ do -- setTitle "Willkommen zum Uni2work Test!" $(widgetFile "homeUser") $(widgetFile "dsgvDisclaimer") + + +getVersionR :: Handler Html +getVersionR = do + let features = $(widgetFile "featureList") + defaultLayout $ do + $(widgetFile "versionHistory") diff --git a/templates/featureList.hamlet b/templates/featureList.hamlet new file mode 100644 index 000000000..1c6f1a431 --- /dev/null +++ b/templates/featureList.hamlet @@ -0,0 +1,17 @@ +

+

+ Momentan noch unimplementierte Funktionalitäten +