X-Git-Url: http://git.hcoop.net/hcoop/portal.git/blobdiff_plain/8ffa2c9e02d6876b95564d4d515a4661cc65e94e..9095d20e1eed887a52e217a884c88d3b409da777:/balance.sml

diff --git a/balance.sml b/balance.sml
index 9943944..1b715fa 100644
--- a/balance.sml
+++ b/balance.sml
@@ -52,6 +52,9 @@ fun listOwnedBalances () =
 				     FROM Balance JOIN WebUser
 				        ON Balance.name = WebUser.name
 					   AND WebUser.bal = Balance.id
+				     JOIN Membership
+					ON Membership.grp = 1
+					   AND Membership.usr = WebUser.id
 				     ORDER BY Balance.name`)
 
 fun listUnownedBalances () =
@@ -59,7 +62,11 @@ fun listUnownedBalances () =
 				     FROM Balance LEFT OUTER JOIN WebUser
 				        ON Balance.name = WebUser.name
 					   AND WebUser.bal = Balance.id
+				     LEFT OUTER JOIN Membership
+				        ON Membership.grp = 1
+					   AND Membership.usr = WebUser.id
 				     WHERE WebUser.id IS NULL
+				        OR Membership.grp IS NULL
 				     ORDER BY Balance.name`)
 
 fun validBalanceName name =