X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/5a035d641c48c7dfa45452f0f7f0e6129a51943b..348c702ebdc2405076a39dc070b6c3831f704acc:/group.sml

diff --git a/group.sml b/group.sml
index 6df85de..75f412a 100644
--- a/group.sml
+++ b/group.sml
@@ -73,6 +73,18 @@ fun userInGroupName (usr, grp) =
 	   | _ => false)
     end
 
+fun userReallyInGroupName (usr, grp) =
+    let
+	val c = getDb ()
+    in
+	(case C.oneOrNoRows c ($`SELECT COUNT( * )
+				    FROM Membership, WebGroup
+				    WHERE (name = ^(C.stringToSql grp) AND grp = id)
+				       AND usr = ^(C.intToSql usr)`) of
+	     SOME[x] => not (C.isNull x) andalso C.intFromSql x <> 0
+	   | _ => false)
+    end
+
 
 (* Managing group memberships *)
 
@@ -107,16 +119,18 @@ fun mkMembershipRow [grp, usr] =
   | mkMembershipRow row = Init.rowError ("membership", row)
 
 fun groupMembers grp =
-    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares FROM Membership, WebUser
-					WHERE grp = ^(C.intToSql grp)
-					   AND usr = id
-					ORDER BY name`)
+    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares, paypal, checkout
+				  FROM Membership, WebUser
+				  WHERE grp = ^(C.intToSql grp)
+				    AND usr = id
+				  ORDER BY name`)
 
 
 (* Checking memberships of the current user *)
 
 fun inGroupNum grp = userInGroupNum (getUserId(), grp)
 fun inGroupName grp = userInGroupName (getUserId(), grp)
+fun reallyInGroupName grp = userReallyInGroupName (getUserId(), grp)
 
 fun requireGroupNum grp =
     if inGroupNum grp then