--- a/demo/more/conference1.ur	Mon Nov 02 15:54:22 2009 -0500
+++ b/demo/more/conference1.ur	Sat Nov 07 11:06:38 2009 -0500
@@ -10,16 +10,23 @@
                          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
 
-                         functor Make (M : Conference.INPUT where con paper = _) = struct
+                             fun status [ctx] [[Body] ~ ctx] r =
+                                 queryX (SELECT review.Rating
+                                         FROM review
+                                         WHERE review.Paper = {[r.Id]})
+                                        (fn r => <xml>{[r.Review.Rating]}; </xml>)
+
                              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