Increase domain component length limit

[hcoop/zz_old/portal.git] / balance.sml

diff --git a/balance.sml b/balance.sml
index 7b25933..9a1f8b6 100644 (file)
--- a/balance.sml
+++ b/balance.sml
@@ -45,7 +45,14 @@ fun deleteBalance id =
 
 fun listBalances () =
     C.map (getDb ()) mkBalanceRow ($`SELECT id, name, amount FROM Balance
-                                  ORDER BY name`)
+                                    ORDER BY name`)
+
+fun listOwnedBalances () =
+    C.map (getDb ()) mkBalanceRow ($`SELECT Balance.id, Balance.name, amount
+                                    FROM Balance JOIN WebUser
+                                       ON Balance.name = WebUser.name
+                                          AND WebUser.bal = Balance.id
+                                    ORDER BY Balance.name`)
 
 fun validBalanceName name =
     size name <= 20
@@ -57,9 +64,9 @@ fun balanceNameToId name =
       | _ => NONE
 
 fun listBalanceUsers bal =
-    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined
+    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares
                                  FROM WebUser
                                  WHERE bal = ^(C.intToSql bal)
                                  ORDER BY name`)
 
-end
\ No newline at end of file
+end