HCoop
/
hcoop
/
zz_old
/
portal.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d58382b
)
Fix an SQL bug in the wake of adding shares
author
adamch
<adamch>
Wed, 26 Jul 2006 01:22:54 +0000
(
01:22
+0000)
committer
adamch
<adamch>
Wed, 26 Jul 2006 01:22:54 +0000
(
01:22
+0000)
balance.sml
patch
|
blob
|
blame
|
history
diff --git
a/balance.sml
b/balance.sml
index
bd5f4b0
..
9a1f8b6
100644
(file)
--- a/
balance.sml
+++ b/
balance.sml
@@
-64,7
+64,7
@@
fun balanceNameToId name =
| _ => NONE
fun listBalanceUsers bal =
- C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app
+ C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app
, shares
FROM WebUser
WHERE bal = ^(C.intToSql bal)
ORDER BY name`)