X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/892e3ea166707b9eb737af7b21e1def215b49cb8..1b8fe8b9a87a942799558078898feb0a0fe52a02:/money.sml

diff --git a/money.sml b/money.sml
index d9e14d9..4689491 100644
--- a/money.sml
+++ b/money.sml
@@ -86,7 +86,7 @@ val mkUserRow' =
      | row => Init.rowError ("listUsers", row)
 
 fun listUsers trn =
-    C.map (getDb ()) mkUserRow' ($`SELECT trn, id, name, rname, bal, joined, app
+    C.map (getDb ()) mkUserRow' ($`SELECT trn, id, name, rname, bal, joined, app, shares
 			           FROM WebUser LEFT OUTER JOIN Charge ON usr = id AND trn = ^(C.intToSql trn)
 			           ORDER BY name`)