diff --git a/src/MyWebLog/Handlers/Admin.fs b/src/MyWebLog/Handlers/Admin.fs index 7d42077..ea2a22a 100644 --- a/src/MyWebLog/Handlers/Admin.fs +++ b/src/MyWebLog/Handlers/Admin.fs @@ -129,8 +129,9 @@ let listPages pageNbr : HttpHandler = fun next ctx -> task { let! pages = Data.Page.findPageOfPages webLog.id pageNbr ctx.Conn return! Hash.FromAnonymousObject - {| pages = pages |> List.map (DisplayPage.fromPageMinimal webLog) - page_title = "Pages" + {| csrf = csrfToken ctx + pages = pages |> List.map (DisplayPage.fromPageMinimal webLog) + page_title = "Pages" |} |> viewForTheme "admin" "page-list" next ctx } @@ -191,7 +192,9 @@ let savePagePermalinks : HttpHandler = fun next ctx -> task { let deletePage pgId : HttpHandler = fun next ctx -> task { let webLog = ctx.WebLog match! Data.Page.delete (PageId pgId) webLog.id ctx.Conn with - | true -> do! addMessage ctx { UserMessage.success with message = "Page deleted successfully" } + | true -> + do! PageListCache.update ctx + do! addMessage ctx { UserMessage.success with message = "Page deleted successfully" } | false -> do! addMessage ctx { UserMessage.error with message = "Page not found; nothing deleted" } return! redirectToGet (WebLog.relativeUrl webLog (Permalink "admin/pages")) next ctx } diff --git a/src/MyWebLog/Handlers/Post.fs b/src/MyWebLog/Handlers/Post.fs index a066abc..7d13df9 100644 --- a/src/MyWebLog/Handlers/Post.fs +++ b/src/MyWebLog/Handlers/Post.fs @@ -339,6 +339,7 @@ let all pageNbr : HttpHandler = fun next ctx -> task { let! posts = Data.Post.findPageOfPosts webLog.id pageNbr 25 conn let! hash = preparePostList webLog posts AdminList "" pageNbr 25 ctx conn hash.Add ("page_title", "Posts") + hash.Add ("csrf", csrfToken ctx) return! viewForTheme "admin" "post-list" next ctx hash } diff --git a/src/MyWebLog/themes/admin/post-edit.liquid b/src/MyWebLog/themes/admin/post-edit.liquid index a3e04d6..043c7cd 100644 --- a/src/MyWebLog/themes/admin/post-edit.liquid +++ b/src/MyWebLog/themes/admin/post-edit.liquid @@ -1,6 +1,6 @@ 

{{ page_title }}

-
+