#10 Created new page for intern position and added extra section to C…

…areers page

src/Hosted/Main.fs

@@ -37,6 +37,7 @@ type EndPoint =
     | [<EndPoint "GET /">] Consulting
     | [<EndPoint "GET /careers">] Careers
     | [<EndPoint "GET /openPosition">] OpenPosition
+    | [<EndPoint "GET /internPosition">] InternPosition
     | [<EndPoint "GET /404.html">] Error404
     | [<EndPoint "GET /debug">] Debug
 
@@ -384,7 +385,7 @@ module Site =
     type ConsultingTemplate = Templating.Template<"../Hosted/consulting.html", serverLoad=Templating.ServerLoad.WhenChanged>
     type CareersTemplate = Templating.Template<"../Hosted/careers.html", serverLoad=Templating.ServerLoad.WhenChanged>
     type OpenPositionTemplate = Templating.Template<"../Hosted/openPosition.html", serverLoad=Templating.ServerLoad.WhenChanged>
-
+    type InternPositionTemplate = Templating.Template<"../Hosted/internPosition.html", serverLoad=Templating.ServerLoad.WhenChanged>
 
     type [<CLIMutable>] RawConfig =
         {
@@ -1011,6 +1012,16 @@ module Site =
                 .Footer(MainTemplate.Footer().Doc())
                 .Cookie(Cookies.Banner false)
                 .Doc()
+            |>Content.Page 
+        let INTERNPOSITION () = 
+            InternPositionTemplate()
+#if !DEBUG
+                .ReleaseMin(".min")
+#endif  
+                .MenuBar(menubar config.Value)
+                .Footer(MainTemplate.Footer().Doc())
+                .Cookie(Cookies.Banner false)
+                .Doc()
             |>Content.Page
         // pageNo is 1-based
         let BLOG_LISTING (banner: Doc) (pageNo: int) f =
@@ -1268,6 +1279,8 @@ module Site =
                 CAREERS()
             | OpenPosition ->
                 OPENPOSITION()
+            | InternPosition ->
+                INTERNPOSITION()
             | Error404 ->
                 Content.File("../Hosted/404.html", AllowOutsideRootFolder=true)
             | Debug ->
@@ -1378,6 +1391,7 @@ type Website() =
                 Consulting
                 Careers
                 OpenPosition
+                InternPosition
             ]
 
 [<assembly: Website(typeof<Website>)>]