let tdl_item_of_entry (revid, login, d, comment) =
let (y,m,d,h,mi,s,tz) = d in
let date = {
Tdl.year = y;
month = m ;
day = d ;
hour = h;
minute = m;
second = s;
zone = tz * 60;
week_day = - 1;
}
in
let title = Printf.sprintf "[r%d] %s"
revid
(chop_n_char 40 (Str.global_replace (Str.regexp "\n\008*") "; " comment))
in
Tdl.item ~title ~enddate: date ~date ~desc: comment ~state: Tdl.Done ()