From 490557e91822aa215df7ab61791d9366eb982401 Mon Sep 17 00:00:00 2001
From: nano <nano@onefortheroadgit.local>
Date: Sun, 3 May 2026 16:25:11 +0000
Subject: [PATCH] Add comment moderation in admin

---
 core/helpers.asp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/core/helpers.asp b/core/helpers.asp
index d49aefd..256877b 100644
--- a/core/helpers.asp
+++ b/core/helpers.asp
@@ -350,6 +350,10 @@ Function PostUrl(ByVal slug)
     PostUrl = "/posts/" & Server.URLEncode(NormalizeSlug(slug))
 End Function
 
+Function PostPath(ByVal slug)
+    PostPath = "/posts/" & NormalizeSlug(slug)
+End Function
+
 Function PostsUrl()
     PostsUrl = "/posts"
 End Function
@@ -382,6 +386,22 @@ Function AdminPostAIUrl(ByVal postId)
     AdminPostAIUrl = "/admin/posts/" & Server.URLEncode(CStr(postId)) & "/ai"
 End Function
 
+Function AdminCommentsUrl()
+    AdminCommentsUrl = "/admin/comments"
+End Function
+
+Function AdminCommentApproveUrl(ByVal commentId)
+    AdminCommentApproveUrl = "/admin/comments/" & Server.URLEncode(CStr(commentId)) & "/approve"
+End Function
+
+Function AdminCommentUnapproveUrl(ByVal commentId)
+    AdminCommentUnapproveUrl = "/admin/comments/" & Server.URLEncode(CStr(commentId)) & "/unapprove"
+End Function
+
+Function AdminCommentDeleteUrl(ByVal commentId)
+    AdminCommentDeleteUrl = "/admin/comments/" & Server.URLEncode(CStr(commentId)) & "/delete"
+End Function
+
 Function AdminAIPromptUrl()
     AdminAIPromptUrl = "/admin/ai-prompt"
 End Function