[fix error in simpleLink
thomashartman1@gmail.com**20081013095254] hunk ./src/Controller.hs 50
- mbUis <- case traceMsg "mbUName: " mbUName of
+ mbUis <- case mbUName of
hunk ./src/ControllerGetActions.hs 29
- readerResultsPerPage = do n <- look "resultsPerPage" `mplus` return "10"
+ readerResultsPerPage = do n <- look "resultsPerPage" `mplus` return "200"
hunk ./src/View.hs 101
-simpleLink (url,anchortext) = render1 [("url",url),("anchortext",anchortext)] "$anchortext$"
+simpleLink (url,anchortext) = render1 [("url",url),("anchortext",anchortext)] "$anchortext$"
hunk ./src/View.hs 168
- [ simpleLink ("/tutorial/viewjob?user="++postedBy++"&job=" ++ j,j)
- , simpleLink ("/tutorial/editjob?user="++postedBy++"&job=" ++ j,"edit")
- , simpleLink ("/tutorial/deletejob?user="++postedBy++"&job=" ++ j,"delete")
+ [ simpleLink ("/tutorial/viewjob?user=" ++ postedBy ++"&job=" ++ j,j)
+ , simpleLink ("/tutorial/editjob?user="++ postedBy ++"&job=" ++ j,"edit")
+ , simpleLink ("/tutorial/deletejob?user="++ postedBy ++"&job=" ++ j,"delete")
hunk ./templates/menulinkselected.st 1
-
+
hunk ./templates/menulinkunselected.st 1
-
+