X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/453d75799fdab30af3360c84ee5dfd308aa1fb92..4b8df0b1e0ef6900d3d78b7169cb5d662ed6c657:/init.sml

diff --git a/init.sml b/init.sml
index f62f9bc..12092b4 100644
--- 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