Adding users from applications

[hcoop/zz_old/portal.git] / init.sml

diff --git a/init.sml b/init.sml
index f62f9bc..12092b4 100644 (file)
--- a/init.sml
+++ b/init.sml
@@ -109,4 +109,9 @@ fun userNameToId name =
        SOME [id] => SOME (C.intFromSql id)
       | _ => NONE
 
+fun dateString () =
+    case C.oneRow (getDb ()) "SELECT CURRENT_DATE" of
+       [d] => C.stringFromSql d
+      | r => rowError ("dateString", r)
+
 end
\ No newline at end of file