From c79391db1737fa663904191e8cb41ef832f216f4 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Sat, 27 Apr 2013 18:08:53 -0400
Subject: Forum: Add "All questions" page

---
 forum/forum.ur | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/forum/forum.ur b/forum/forum.ur
index 6e62b83..db33f8d 100644
--- a/forum/forum.ur
+++ b/forum/forum.ur
@@ -48,6 +48,21 @@ fun prettyPrintQuestion row : xbody =
       </li>
     </xml>
 
+val allQuestions : transaction page =
+    questionsList <- queryX (SELECT * FROM question
+				      ORDER BY Question.Id DESC)
+			    prettyPrintQuestion;
+    return (
+        Template.generic (Some "Forum – All questions") <xml>
+	  <div class={content}>
+	    <h2>All questions</h2>
+	    <ul class={questionList}>
+	      {questionsList}
+	    </ul>
+	  </div>
+	</xml>
+    )
+
 fun main () : transaction page =
     newestQuestions <- queryX (SELECT * FROM question
 					ORDER BY Question.Id DESC
@@ -61,6 +76,8 @@ fun main () : transaction page =
 	    <ul class={questionList}>
 	      {newestQuestions}
 	    </ul>
+	    <a link={allQuestions}>View all questions</a>
+
 	    <h2>Ask a new question</h2>
 	    <form>
 	      <textbox {#Title} placeholder="Title" class={questionEntryTitle} /><br />
-- 
cgit v1.2.3