Fix "add category" button (#40)

2024-03-16 22:00:42 -04:00
parent 4301788344
commit 31d49d4b1a
2 changed files with 12 additions and 8 deletions
--- a/src/MyWebLog/Handlers/Admin.fs
+++ b/src/MyWebLog/Handlers/Admin.fs
@@ -96,7 +96,7 @@ module Category =

    // GET /admin/categories
    let all : HttpHandler = fun next ctx ->
-        adminPage "Categories" true next ctx Views.WebLog.categoryList
+        adminPage "Categories" true next ctx (Views.WebLog.categoryList (ctx.Request.Query.ContainsKey "new"))

    // GET /admin/category/{id}/edit
    let edit catId : HttpHandler = fun next ctx -> task {