- (* Get the current business week. Tricky - because GregorianDate isn't
- * around to help us, it's best to get the database to help us out.
- *
- * XXX This fails sometimes near New Year. Better to get GD into extlib
- * or this codebase.
- *)
- let sth =
- dbh#prepare_cached "select extract (year from current_date) :: int,
- extract (week from current_date) :: int" in
- sth#execute [];