[simplified menu links, gray menu items
thomashartman1@gmail.com**20080924100114] hunk ./src/View.hs 62
-            ( \user -> paintHMenu . map (menuLink ts (Just tmpl) ( "/tutorial") ) $
-              [("logout","logout " ++user)
-               , ("changepassword","change password")] )
+            ( \user -> paintHMenu . map (menuLink ts ("/tutorial/" ++ tmpl0) ) $
+              [("/tutorial/logout","logout " ++user)
+               , ("/tutorial/changepassword","change password")] )
hunk ./src/View.hs 67
-                           then paintHMenu . map (menuLink ts (Just tmpl) ( "/tutorial")  ) . readtut $ "mainusermenu"
+                           then paintHMenu .
+                                  map (menuLink ts ("/tutorial/" ++ tmpl0) )
+                                    . readtut $ "mainusermenu"
hunk ./src/View.hs 73
-            paintHMenu . map (menuLink ts (Just tmpl) ( "/tutorial") ) . readtut $ "menubarmenu"
+            paintHMenu . map (menuLink ts ("/tutorial/" ++ tmpl0) ) . readtut $ "menubarmenu"
hunk ./src/View.hs 75
-      tocArea = paintVMenuOL . map (menuLink ts (Just tmpl) ( "/tutorial") ) . readtut $ "toc"
+      --, ("post-data","form post data")
+      --, ("get-data","querystring get data")
+      --, ("macid-data","macid data")
+      --, ("migrating","changing the data model")
+      tocArea = paintVMenuOL . map (menuLink ts ("/tutorial/" ++ tmpl0) ) . readtut $ "toc"
hunk ./src/View.hs 90
-  -> Maybe [Char]
hunk ./src/View.hs 93
-menuLink templates mbCurrEndurl baseurl (endurl,anchortext) =
+menuLink templates currUrl (url,anchortext) =
hunk ./src/View.hs 95
-      attrs = [("baseurl",baseurl),("endurl",urlEncode endurl),("anchortext",anchortext)]
-  in  maybe (r "menulinkunselected")
-        (\ceu -> if ceu == (cleanTemplateName endurl) then r "menulinkselected" else r "menulinkunselected")
-        mbCurrEndurl
+      attrs = [("url",url),("anchortext",anchortext)]
+  in  if ( currUrl == url)
+        then r "menulinkselected"
+        else if null url
+                then r "menulinkgray"
+                else r "menulinkunselected"
hunk ./templates/gettingstarted.st 29
-<p><a href="/tutorial/prerequisites">Installation prerequisites"</a></p>
+<p><a href="/tutorial/prerequisites">Installation prerequisites</a></p>
hunk ./templates/mainusermenu.st 1
-[("consultantprofile","advertise as consultant")
-, ("postjob","post happs job")]
+[("/tutorial/consultantprofile","advertise as consultant")
+, ("/tutorial/postjob","post happs job")]
hunk ./templates/menubarmenu.st 1
-[("home","home"),("consultants","happs consultants"),("jobs","happs jobs")]
+[("/tutorial/home","home"),
+ ("/tutorial/consultants","happs consultants"),
+ ("/tutorial/jobs","happs jobs")]
hunk ./templates/menulinkselected.st 1
-<a class=menuitemSelected href=$baseurl$/$endurl$>$anchortext$</a>
+<a class=menuitemSelected href=$url$>$anchortext$</a>
hunk ./templates/menulinkunselected.st 1
-<a class=menuitem href=$baseurl$/$endurl$>$anchortext$</a>
+<a class=menuitem href=$url$>$anchortext$</a>
hunk ./templates/toc.st 1
-[("home","happs intro")
- , ("missing-happs-documentation","the missing happs documentation")
- , ("getting-started","getting started with happs")
- , ("prerequisites","prerequisites")
- , ("run-tutorial-locally","cabal install me")
- , ("main-function","main")
- , ("basic-url-handling", "url handling")
- , ("templates-dont-repeat-yourself","templates")
- , ("stringtemplate-basics","stringtemplate basics")            
- , ("start-happs-on-boot","cron jobs")
- , ("thanks","thanks")
+[("/tutorial/home","happs intro")
+ , ("/tutorial/missing-happs-documentation","the missing happs documentation")
+ , ("/tutorial/getting-started","getting started with happs")
+ , ("/tutorial/prerequisites","prerequisites")
+ , ("/tutorial/run-tutorial-locally","cabal install me")
+ , ("/tutorial/main-function","main")
+ , ("/tutorial/basic-url-handling", "url handling")
+ , ("/tutorial/templates-dont-repeat-yourself","templates")
+ , ("/tutorial/stringtemplate-basics","stringtemplate basics")            
+ , ("","form post data")
+ , ("","querystring get data")
+ , ("","macid data")
+ , ("","changing the data model")
+ , ("/tutorial/start-happs-on-boot","cron jobs")
+ , ("/tutorial/thanks","thanks")
hunk ./templates/toc.st 18
+
hunk ./todo 50
-
-  answer the mailing list guy that complained about random ports, tell him it's fixed in head and
-    there should be an official release incorporating this fix within a few days.