diff options
| author | Clint Adams <clint@softwarefreedom.org> | 2013-10-24 17:46:38 -0400 |
|---|---|---|
| committer | Clint Adams <clint@softwarefreedom.org> | 2013-10-24 17:46:38 -0400 |
| commit | 2f77c64593ec205b1bdac5c76ba07e8e838d168b (patch) | |
| tree | 15c6abb74419f15aea0abbff21288cd2c5091125 | |
| parent | 515338784b8fc2fb5435ee4e061c092ff754d6cf (diff) | |
show full-/part-time on user page
| -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> |