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 /Handler | |
| parent | 515338784b8fc2fb5435ee4e061c092ff754d6cf (diff) | |
show full-/part-time on user page
Diffstat (limited to 'Handler')
| -rw-r--r-- | Handler/User.hs | 3 |
1 files changed, 3 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 |