Clean up database names (#21)

- Moved user edit to "my info" (#19)

src/MyWebLog.Data/Utils.fs

@@ -7,16 +7,16 @@ open MyWebLog.ViewModels
 
 /// Create a category hierarchy from the given list of categories
 let rec orderByHierarchy (cats : Category list) parentId slugBase parentNames = seq {
-    for cat in cats |> List.filter (fun c -> c.parentId = parentId) do
-        let fullSlug = (match slugBase with Some it -> $"{it}/" | None -> "") + cat.slug
-        { Id          = CategoryId.toString cat.id
+    for cat in cats |> List.filter (fun c -> c.ParentId = parentId) do
+        let fullSlug = (match slugBase with Some it -> $"{it}/" | None -> "") + cat.Slug
+        { Id          = CategoryId.toString cat.Id
           Slug        = fullSlug
-          Name        = cat.name
-          Description = cat.description
+          Name        = cat.Name
+          Description = cat.Description
           ParentNames = Array.ofList parentNames
           // Post counts are filled on a second pass
           PostCount   = 0
         }
-        yield! orderByHierarchy cats (Some cat.id) (Some fullSlug) ([ cat.name ] |> List.append parentNames)
+        yield! orderByHierarchy cats (Some cat.Id) (Some fullSlug) ([ cat.Name ] |> List.append parentNames)
 }