method edit_header () =
      let param = C.text
          ~f: (fun s -> report_header <- s)
          Rep_messages.header
          report_header
      in
      ignore (C.simple_get Rep_messages.edit_header [param])