diff options
| -rw-r--r-- | Handler/User.hs | 3 | ||||
| -rw-r--r-- | templates/userpage.hamlet | 7 |
2 files changed, 10 insertions, 0 deletions
diff --git a/Handler/User.hs b/Handler/User.hs index 3d81f20..57886b6 100644 --- a/Handler/User.hs +++ b/Handler/User.hs @@ -89,3 +89,6 @@ pagePosition uid = do pageNumber <- fmap (either (const 1) id . fmap fst . fromMaybe (Right (1,"")) . fmap decimal) (lookupGetParam "page") cnt <- runDB $ count [TimeEntryUser ==. uid] return (pageNumber, ((cnt - 1) `div` 25) + 1) + +parttime :: Employment -> Bool +parttime e = employmentCommitment e /= 1.0 diff --git a/templates/userpage.hamlet b/templates/userpage.hamlet index 504bd22..bacd299 100644 --- a/templates/userpage.hamlet +++ b/templates/userpage.hamlet @@ -8,6 +8,13 @@ $forall Entity _ emp <- employments \ until # <strong> #{show enddate} + $if parttime emp + , part-time at # + <strong> + #{show (employmentCommitment emp)} + $else + , full-time + $if isThisUser <p> |