-ref and -m options no longer exclusive

This commit is contained in:
Pascal Brisset
2006-03-13 12:55:17 +00:00
parent 18fd1feb5a
commit e01482a5de
+2 -2
View File
@@ -724,8 +724,8 @@ let _ =
(* Loading an initial map *)
if !geo_ref <> "" then
set_georef_if_none geomap (Latlong.of_string !geo_ref)
else if !map_file <> "" then begin
set_georef_if_none geomap (Latlong.of_string !geo_ref);
if !map_file <> "" then begin
let xml_map_file = if !map_file.[0] <> '/' then Filename.concat default_path_maps !map_file else !map_file in
display_map geomap xml_map_file
end;