HCoop
/
hcoop
/
zz_old
/
portal.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Picking mailing list vhosts out of Domtool data
[hcoop/zz_old/portal.git]
/
poll.sml
diff --git
a/poll.sml
b/poll.sml
index
e549218
..
06d49a8
100644
(file)
--- a/
poll.sml
+++ b/
poll.sml
@@
-196,7
+196,7
@@
fun noDupes l =
| h::t => List.all (fn x => x <> h) t andalso noDupes t
fun listVoters cho =
| h::t => List.all (fn x => x <> h) t andalso noDupes t
fun listVoters cho =
- C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app
+ C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app
, shares, paypal, checkout
FROM WebUser, Vote
WHERE usr = id
AND cho = ^(C.intToSql cho)
FROM WebUser, Vote
WHERE usr = id
AND cho = ^(C.intToSql cho)
@@
-209,7
+209,7
@@
fun countVoters pol =
| row => Init.rowError ("countVoters", row)
fun listPollVoters pol =
| row => Init.rowError ("countVoters", row)
fun listPollVoters pol =
- C.map (getDb ()) mkUserRow ($`SELECT DISTINCT WebUser.id, name, rname, bal, joined, app
+ C.map (getDb ()) mkUserRow ($`SELECT DISTINCT WebUser.id, name, rname, bal, joined, app
, shares, paypal, checkout
FROM WebUser, Vote JOIN PollChoice ON cho = PollChoice.id
WHERE pol = ^(C.intToSql pol)
AND usr = WebUser.id
FROM WebUser, Vote JOIN PollChoice ON cho = PollChoice.id
WHERE pol = ^(C.intToSql pol)
AND usr = WebUser.id