X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/c694e7c4064ace9205740a5f8cf74ca3457814d1..bde01dd3ce0444d75da0f3837bede5a037a18f3d:/balance.sml?ds=sidebyside

diff --git a/balance.sml b/balance.sml
index 1b715fa..5b0c684 100644
--- a/balance.sml
+++ b/balance.sml
@@ -69,6 +69,17 @@ fun listUnownedBalances () =
 				        OR Membership.grp IS NULL
 				     ORDER BY Balance.name`)
 
+fun listNegativeOwnedBalances () =
+    C.map (getDb ()) mkBalanceRow ($`SELECT Balance.id, Balance.name, amount
+				     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
+				     WHERE amount < 0
+				     ORDER BY Balance.name`)
+
 fun validBalanceName name =
     size name <= 20
     andalso CharVector.all (fn ch => Char.isAlpha ch orelse ch = #"+") name