2 * Written by Richard W.M. Jones <rich@merjis.com>.
3 * Copyright (C) 2004 Merjis Ltd.
4 * $Id: cocanwiki_date.ml,v 1.1 2004/09/07 13:40:10 rich Exp $
14 (* Generate a printable datestamp for pages. *)
15 let printable_date (date, _) =
16 sprintf "%d %s %04d" date.Dbi.day (short_month date.Dbi.month) date.Dbi.year
18 let printable_date_time (date, time) =
19 sprintf "%d %s %04d %02d:%02d" date.Dbi.day (short_month date.Dbi.month)
20 date.Dbi.year time.Dbi.hour time.Dbi.min