DTD include written as header while saving a flight plan

2026-06-06 16:58:48 +08:00 · 2007-04-23 20:32:33 +00:00
parent 7274b78d64
commit 7af4a769a2
1 changed files with 1 additions and 0 deletions
@@ -37,6 +37,7 @@ let save_fp = fun () ->
 	None -> ()
      | Some file -> 
 	  let f  = open_out file in
+	  fprintf f "<!DOCTYPE flight_plan SYSTEM \"flight_plan.dtd\">\n\n";
 	  fprintf f "%s\n" (ExtXml.to_string_fmt fp#xml);
 	  close_out f