Search by real name in money matters

[hcoop/portal.git] / init.sml

diff --git a/init.sml b/init.sml
index ba3b2bf..789fcbc 100644 (file)
--- a/init.sml
+++ b/init.sml
@@ -311,4 +311,10 @@ fun searchCheckout checkout =
                                  WHERE checkout = ^(C.stringToSql (normEmail checkout))
                                  ORDER BY name`)
 
+fun searchRealName realname =
+    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares, paypal, checkout
+                                 FROM WebUser
+                                 WHERE rname ILIKE ^(C.stringToSql ("%" ^ realname ^ "%"))
+                                 ORDER BY name`)
+
 end