let xml_of_text_input t =
Element ("textInput", [],
[
Element("title",[],[PCData t.ti_title]) ;
Element("description",[],[PCData t.ti_desc]) ;
Element("name",[],[PCData t.ti_name]) ;
Element("link",[],[PCData t.ti_link]) ;
]
)