comparison demo/more/conference1.ur @ 1029:53a22f46f377

Seeing others' reviews
author Adam Chlipala <adamc@hcoop.net>
date Mon, 02 Nov 2009 14:22:29 -0500
parents e46227efcbba
children 6bcc1020d5cd
comparison
equal deleted inserted replaced
1028:8b7971e74335 1029:53a22f46f377
1 open ConferenceFields 1 open ConferenceFields
2 2
3 open Conference.Make(struct 3 open Conference.Make(struct
4 val paper = {Title = title, 4 val paper = {Title = title,
5 Abstract = abstract} 5 Abstract = abstract}
6 val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: [])} 6 val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: []),
7 CommentsForAuthors = commentsForAuthors}
7 8
8 val submissionDeadline = readError "2009-11-22 23:59:59" 9 val submissionDeadline = readError "2009-11-22 23:59:59"
9 10
10 fun summarizePaper [ctx] [[Body] ~ ctx] r = cdata r.Title 11 fun summarizePaper [ctx] [[Body] ~ ctx] r = cdata r.Title
11 12