let copy_item i =
  item ?id: i.item_id
    ~title: i.item_title
    ~state: i.item_state
    ~date: i.item_date
    ?enddate: i.item_enddate
    ?desc: i.item_desc
    ()