[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.