[user profile displays jobs posts ok
thomashartman1@gmail.com**20080925104819] hunk ./src/ControllerGetActions.hs 84
- tutlay u = let jobsPosted = jobs u
- in tutlayoutU rglobs [("username",username u)] template
+ tutlay u = let jobsPosted = jt (username u) rglobs . jobs $ u
+
+ in tutlayoutU rglobs [("username",username u),("jobsPosted",jobsPosted)] template
hunk ./src/ControllerGetActions.hs 95
-
+jt postedBy rglobs jobsData = paintTable (templates rglobs)
+ (Just ["     ","project","budget"])
+ jobCells
+ Nothing
+ where jobCells = map ( \((Job j budget blurb)) ->
+ -- first cell is empty string for spacking
+ [ "",simpleLink (templates rglobs) ("/tutorial/viewjob?user="++postedBy++"&job=" ++ j,j)
+ , budget
+ ] ) jobsData
hunk ./templates/home.st 32
-scenes.
+scenes. (Although if there are existing databases that you need to connect to, you can do that too -- you're not locked in to using macid for everything.)
+
hunk ./templates/missinghappsdocumentation.st 27
-I am currently available for haskell, HAppS, and startup consulting.
+I am currently available for haskell, HAppS, and startup consulting.