[more work on jobs view thomashartman1@gmail.com**20080927121053] hunk ./src/Controller.hs 71 - , dir "editjobposts" [ methodSP GET . viewEditJobPosts $ rglobs ] + , dir "myjobposts" [ methodSP GET . pageMyJobPosts $ rglobs ] hunk ./src/ControllerGetActions.hs 85 -viewEditJobPosts rglobs = ServerPartT $ \rq -> do +pageMyJobPosts rglobs = ServerPartT $ \rq -> do hunk ./src/ControllerGetActions.hs 90 - case jobs currU of - [] -> return $ tutlayoutU rglobs [] "editjobposts" - jobs -> do - let jobPostsTable = paintUserJobsTable rglobs (username currU) jobs 1 20 - myJobPosts = r [("jobPostsTable",jobPostsTable)] "editjobpostsOldPosts" - return $ tutlayoutU rglobs [("myJobPosts",myJobPosts)] "editjobposts" - + let jobPostsTable = paintUserJobsTable rglobs (username currU) (jobs currU) 1 20 + return $ tutlayoutU rglobs [("jobPostsTable",jobPostsTable)] "myjobposts" + + hunk ./templates/editjobposts.st 1 -$editjobpostsForm()$ - -$ myJobPosts $ + rmfile ./templates/editjobposts.st hunk ./templates/mainusermenu.st 2 -, ("/tutorial/editjobposts","my job posts")] +, ("/tutorial/myjobposts","my job posts") +, ("/tutorial/postnewjob","post new job")] addfile ./templates/myjobposts.st hunk ./templates/myjobposts.st 1 +