[more of same
thomashartman1@gmail.com**20080927160937] hunk ./src/ControllerGetActions.hs 57
-            lay (Job jN jBud jBlu) = tutlayoutU rglobs [("jobname",jN),("budget",jBud),("jobblurb",jBlu)] "viewjob" 
+            userlink = simpleLink (templates rglobs) ("/tutorial/viewprofile?user=" ++ pBy,pBy)
+            lay (Job jN jBud jBlu) = tutlayoutU rglobs [("jobname",jN)
+                                                        , ("budget",jBud)
+                                                        , ("jobblurb",jBlu)
+                                                        -- , ("postedBy",userlink)
+                                                       ] "viewjob" 
hunk ./src/ControllerGetActions.hs 106
-          let prStuff = r [] "editconsultantprofileNoProfile"
-          return $ tutlayoutU rglobs [("possiblyExistingProfileStuff",prStuff)] "editconsultantprofile"                
+          --let prStuff = r [] "editconsultantprofileNoProfile"
+          return $ tutlayoutU rglobs [] "editconsultantprofile"                
hunk ./src/ControllerGetActions.hs 110
-              prStuff = r [("username",username currU), ("showProfile",showPr)] "editconsultantprofileYesProfile" 
+              --prStuff = r [("username",username currU), ("showProfile",showPr)] "editconsultantprofileYesProfile" 
hunk ./src/ControllerGetActions.hs 114
-                        , ("possiblyExistingProfileStuff",prStuff) ]
+                        , ("possiblyExistingProfileStuff",showPr)
+                      ]
hunk ./src/ControllerPostActions.hs 55
-    fromData = liftM3 ConsultantProfilePostData (look "billingrate") (look "consultantblurb") (look "submitbtn")
+    fromData = liftM3 ConsultantProfilePostData (look "billingrate" `mplus` return "") (look "consultantblurb") (look "submitbtn")
hunk ./templates/editconsultantprofileForm.st 5
-	<tr><td>Billing Rate:</td><td><input type="textfield" name="billingrate" value=$billingRate$ ></td></tr>
-
+	$!<tr><td>Billing Rate:</td><td><input type="textfield" name="billingrate" value=$billingRate$ ></td></tr>!$
+         <tr><td>List me on the HAppS developers page:</td>
+	    <td><input type="checkbox" name="listasconsultant" value=$listAsConsultant$ ></td></tr> 
hunk ./templates/editconsultantprofileNoProfile.st 1
-If you fill out this form, your user will show up in searches for HAppS consultants.
-
rmfile ./templates/editconsultantprofileNoProfile.st
hunk ./templates/editconsultantprofileYesProfile.st 1
-$! <p><a href="/tutorial/viewprofile?user=$username$">Current Profile:</a></p> !$
-<p>$ showProfile $</p>
-<hr>
-$! To remove your consultant profile, and prevent your user
-from showing up in searches for HAppS consultants, make all form fields blank.!$
-</p>
+
rmfile ./templates/editconsultantprofileYesProfile.st
hunk ./templates/menubarmenu.st 2
- ("/tutorial/consultants","happs consultants"),
+ ("/tutorial/consultants","happs developers"),
hunk ./templates/viewconsultantprofileInclude.st 8
-  <p><b>Billing Rate: </b> $ billingRate $ </p>
+$!  <p><b>Billing Rate: </b> $ billingRate $ </p> !$
hunk ./templates/viewjob.st 6
+  $! <li>Posted by: $postedBy$</li> !$
hunk ./todo 8
-    probably view old posts and post new should be consolidated into one page.
+
+    billing rate is stupid. just put contact information field.
+    check box for happs developer
hunk ./todo 16
-    announcement: "In Version 4 of the ongoing self-demoing HAppS Tutorial, we implement a HAppS job board using HAppS."
-
+    announcement: "In Version 4 of the ongoing self-demoing HAppS Tutorial, we implement a HAppS job board using HAppS.