method add_item () =
      let i = Rss.item ~pubdate: today () in
      match C.simple_get ~width: 500 "Add item"
        (self#params_for_item i)
      with
        C.Return_ok -> self#insert_item i
      | _ -> ()