From 5d72e64529dbbaac8d5fef531c9720e506380791 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Sat, 27 Apr 2013 17:20:23 -0400
Subject: Remove duplicate “Ask as” entry when asking without certs
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 forum/forum.ur | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/forum/forum.ur b/forum/forum.ur
index 2dbfcb0..e742ef9 100644
--- a/forum/forum.ur
+++ b/forum/forum.ur
@@ -31,7 +31,8 @@ table question : { Id : int,
 sequence questionIdS
 
 (* Grabs real name out of MIT certificate. *)
-val getName = getenv (blessEnvVar "SSL_CLIENT_S_DN_CN")
+val getName : transaction (option string) =
+    getenv (blessEnvVar "SSL_CLIENT_S_DN_CN")
 
 fun prettyPrintQuestion row : xbody =
     <xml>
@@ -51,10 +52,12 @@ fun main () : transaction page =
 	      <textbox {#Title} size=80 /><br />
 	      <textarea {#Body} rows=12 cols=80 /><br />
 	      Asking as:
-	        <select {#Asker}>
-		  <option>{[askerOpt]}</option>
-		  <option>Anonymous</option>
-		</select>
+	      <select {#Asker}>
+	        {case askerOpt of
+		     None => <xml/>
+		   | Some nam => <xml><option>{[nam]}</option></xml>}
+		<option>Anonymous</option>
+	      </select>
 	      <submit action={ask} value="Ask" />
 	    </form>
 	  </div>
-- 
cgit v1.2.3