From 9152a4e4a85d357e5bb289251512560a61eeb2d0 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 7 Nov 2009 11:06:38 -0500
Subject: Saving paper decisions

---
 demo/more/conference1.ur | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'demo/more/conference1.ur')

diff --git a/demo/more/conference1.ur b/demo/more/conference1.ur
index a365efa8..646ba489 100644
--- a/demo/more/conference1.ur
+++ b/demo/more/conference1.ur
@@ -10,16 +10,23 @@ open Conference.Make(struct
                          val submissionDeadline = readError "2009-11-22 23:59:59"
 
                          fun summarizePaper [ctx] [[Body] ~ ctx] r = txt r.Title
+                         functor Make (M : Conference.INPUT where con paper = _
+                                                            where con review = _) = struct
+                             open M
+
+                             fun status [ctx] [[Body] ~ ctx] r =
+                                 queryX (SELECT review.Rating
+                                         FROM review
+                                         WHERE review.Paper = {[r.Id]})
+                                        (fn r => <xml>{[r.Review.Rating]}; </xml>)
 
-                         functor Make (M : Conference.INPUT where con paper = _) = struct
                              open Conference.Join(struct
                                                       structure O1 = Bid.Make(M)
                                                       structure O2 = Decision.Make(struct
                                                                                        con paperOther = _
                                                                                        open M
 
-                                                                                       fun status [ctx] [[Body] ~ ctx]
-                                                                                                  r = <xml>!</xml>
+                                                                                       val status = @@status
                                                                                    end)
                                                   end)
                          end
-- 
cgit v1.2.3