fun listNodes () =
C.map (getDb ()) mkNodeRow ($`SELECT id, name, descr, debian
FROM WebNode
+ WHERE id IN (SELECT id FROM ActiveWebNode)
ORDER BY name`)
fun nodeName id =
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