X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/369e1577bf72be99dcbb142fe605e5b4e6548102..65ba123db91b9174c4bb271bdc73ed57a7d4abf8:/balance.sml

diff --git a/balance.sml b/balance.sml
index 7b25933..9a1f8b6 100644
--- 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