From 47bc1ff604f25c4457831c5171b11ff2d9cf6513 Mon Sep 17 00:00:00 2001 From: SJost Date: Tue, 3 Jul 2018 08:56:26 +0200 Subject: [PATCH] Stub vor Version History and Impressum added --- routes | 1 + src/Foundation.hs | 1 + src/Handler/Home.hs | 10 +++++-- templates/featureList.hamlet | 17 ++++++++++++ templates/home.hamlet | 2 ++ templates/versionHistory.hamlet | 47 +++++++++++++++++++++++++++++++++ 6 files changed, 76 insertions(+), 2 deletions(-) create mode 100644 templates/featureList.hamlet create mode 100644 templates/versionHistory.hamlet 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 +