Trim leading/trailing spaces from name in Real Name search

Paypal has an   before names, making the process of finding by
name more obnoxious than it need be

diff --git a/init.sml b/init.sml
index 789fcbc..6ed6c9a 100644 (file)
--- a/init.sml
+++ b/init.sml
@@ -314,7 +314,7 @@ fun searchCheckout checkout =
 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 ^ "%"))
+                                 WHERE rname ILIKE (^(C.stringToSql "%") || trim (both ^(C.stringToSql " ") from ^(C.stringToSql realname)) || ^(C.stringToSql "%")) 
                                  ORDER BY name`)
 
 end