let get_html_arg cgi (key:string) = 
  try 
    let item = List.assoc key (cgi # arguments) in item # value
  with Not_found -> ""