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 | _ -> ()