+ %><h3>Issue "<% Web.html (#title issue) %>" deleted</h3><%
+ end
+
+elseif $"cmd" = "post" then
+ val id = Web.stoi ($"iss");
+ viewingIssue := SOME id;
+ val issue = Support.lookupIssue id;
+
+ if catId <> #cat issue then
+ %><h3>Inconsistent cat field</h3><%
+ elseif not (Support.allowedToSee id) then
+ %><h3>Authorization failure</h3><%
+ else
+ val id = Support.addPost (you, id, $"body");
+ if not (Support.notifyPost id) then
+ %><h3>Error sending e-mail notification</h3><%
+ end
+ %><h3>Posted</h3><%
+ end
+
+elseif $"modPost" <> "" then
+ showNormal := false;
+ val id = Web.stoi ($"modPost");
+ val post = Support.lookupPost id;
+ val issue = Support.lookupIssue (#iss post);
+ if catId <> #cat issue then
+ %><h3>Inconsistent cat field</h3><%
+ elseif not admin then
+ %><h3>You aren't authorized to modify that.</h3><%
+ else %>
+<h3>Modify post</h3>
+
+<form action="issue" method="post">
+<input type="hidden" name="cat" value="<% catId %>">
+<input type="hidden" name="savePost" value="<% id %>">
+<textarea name="body" rows="10" cols="80" wrap="soft"><% Web.htmlNl (#body post) %></textarea>
+<input type="submit" value="Save">
+</form>
+<% end
+
+elseif $"savePost" <> "" then
+ val id = Web.stoi ($"savePost");
+ val post = Support.lookupPost id;
+ val issue = Support.lookupIssue (#iss post);
+
+ if catId <> #cat issue then
+ %><h3>Inconsistent cat field</h3><%
+ elseif not admin then
+ %><h3>Authorization failure</h3><%
+ else
+ Support.modPost {post with body = $"body"};
+ viewingIssue := SOME (#iss post)
+ %><h3>Post saved</b></h3<%
+ end
+
+elseif $"delPost" <> "" then
+ showNormal := false;
+ val id = Web.stoi ($"delPost");
+ val post = Support.lookupPost id;
+ val issue = Support.lookupIssue (#iss post);
+
+ if catId <> #cat issue then
+ %><h3>Inconsistent cat field</h3><%
+ elseif not admin then
+ %><h3>Authorization failure</h3><%
+ else
+ %><h3>Are you sure you want to delete this post?</h3>
+ <blockquote><% Web.htmlNl (#body post) %></blockquote>
+ <a href="issue?cat=<% catId %>&delPost2=<% id %>">Yes, delete it!</a><%
+ end
+
+elseif $"delPost2" <> "" then
+ val id = Web.stoi ($"delPost2");
+ val post = Support.lookupPost id;
+ val issue = Support.lookupIssue (#iss post);
+
+ if catId <> #cat issue then
+ %><h3>Inconsistent cat field</h3><%
+ elseif not admin then
+ %><h3>Authorization failure</h3><%
+ else
+ Support.deletePost id;
+ viewingIssue := SOME (#iss post)
+ %><h3>Post deleted</h3><%