diff options
author | Benjamin Barenblat <bbaren@mit.edu> | 2013-04-30 13:38:02 -0400 |
---|---|---|
committer | Benjamin Barenblat <bbaren@mit.edu> | 2013-04-30 13:38:02 -0400 |
commit | b2dc3a9199369af04cf3ee9db0d1ebb5576a594b (patch) | |
tree | 538dc6f0a54cd47dfcab54adfb337608ad374382 /forum/forum.ur | |
parent | 63fc8aaf40dfd70129a8d8ae1eed71b43c889591 (diff) |
Forum: Rename “asker” to “author”
Diffstat (limited to 'forum/forum.ur')
-rw-r--r-- | forum/forum.ur | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/forum/forum.ur b/forum/forum.ur index db33f8d..e8a4be5 100644 --- a/forum/forum.ur +++ b/forum/forum.ur @@ -21,7 +21,7 @@ functor Make(Template : sig end) = struct open Styles -open Asker +open Author style questionList style questionMetadata @@ -31,7 +31,7 @@ style questionEntryBody table question : { Id : int, Title : string, Body : string, - Asker : asker + Author : author } PRIMARY KEY Id sequence questionIdS @@ -44,7 +44,7 @@ fun prettyPrintQuestion row : xbody = <li> <h3>{[row.Question.Title]}</h3> {[row.Question.Body]} - <span class={questionMetadata}>Asked by {[row.Question.Asker]}</span> + <span class={questionMetadata}>Asked by {[row.Question.Author]}</span> </li> </xml> @@ -83,7 +83,7 @@ fun main () : transaction page = <textbox {#Title} placeholder="Title" class={questionEntryTitle} /><br /> <textarea {#Body} class={questionEntryBody} /><br /> Asking as: - <select {#Asker}> + <select {#Author}> {case askerOpt of None => <xml/> | Some nam => <xml><option>{[nam]}</option></xml>} @@ -97,8 +97,8 @@ fun main () : transaction page = and ask submission = id <- nextval questionIdS; - dml (INSERT INTO question (Id, Title, Body, Asker) - VALUES ({[id]}, {[submission.Title]}, {[submission.Body]}, {[readError submission.Asker]})); + dml (INSERT INTO question (Id, Title, Body, Author) + VALUES ({[id]}, {[submission.Title]}, {[submission.Body]}, {[readError submission.Author]})); main () end |