diff --git a/Foundation.hs b/Foundation.hs index fd391e0..ed6c6a2 100644 --- a/Foundation.hs +++ b/Foundation.hs @@ -131,6 +131,7 @@ instance Yesod App where isAuthorized (ChallengeDiscussionFeedR _) _ = return Authorized isAuthorized Presentation4RealR _ = return Authorized + isAuthorized GonitoInClassR _ = return Authorized isAuthorized (AvatarR _) _ = return Authorized diff --git a/Handler/Achievements.hs b/Handler/Achievements.hs index ff7c9d9..1aeff61 100644 --- a/Handler/Achievements.hs +++ b/Handler/Achievements.hs @@ -18,6 +18,12 @@ import Data.Text import qualified Yesod.Table as Table +getGonitoInClassR :: Handler Html +getGonitoInClassR = do + defaultLayout $ do + setTitle "Achievements" + $(widgetFile "gonito-in-class") + getAchievementsR :: Handler Html getAchievementsR = do (formWidget, formEnctype) <- generateFormPost (achievementForm Nothing Nothing) diff --git a/config/routes b/config/routes index 71379ff..99964da 100644 --- a/config/routes +++ b/config/routes @@ -53,3 +53,4 @@ /presentation/4real Presentation4RealR GET /presentation/datech-2017 PresentationDATeCH2017R GET +/gonito-in-class GonitoInClassR GET diff --git a/messages/en.msg b/messages/en.msg index 5a8fcb0..d60b90c 100644 --- a/messages/en.msg +++ b/messages/en.msg @@ -56,3 +56,5 @@ ExtraPointsPoints: Points to be added ExtraPointsDescription: Describe why they are added User: User Manage: manage +Presentation: presentation +GonitoInClass: Gonito in class diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet index 012689f..4be2b1f 100644 --- a/templates/default-layout.hamlet +++ b/templates/default-layout.hamlet @@ -5,7 +5,11 @@ $maybe user <- maybeUser