fly/flightgear
1
0
Fork 0
Code Activity

Remove possilbe trailing "/" from runway numbers in FAA data.

Browse source 
Use add_record() routine for FGFS/X-Plane data.
This commit is contained in:
curt 2003-04-17 20:57:36 +00:00
parent d1982a9a8c
commit 6e1e43b47b
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scripts/perl/dafif/dafift2ils.pl
View file

@ -260,6 +260,7 @@ sub load_faa() {
$id = &strip_ws( $id );
$rwy = &strip_ws( $rwy );
$rwy =~ s/\/$//;
$rwy =~ s/\/$//;
$loc_id =~ s/^I-//;
my( $loc_hdg ) = $faa_bearing + make_dmagvar($faa_magvar);
my( $loc_lat ) = make_dcoord($faa_loc_lats) / 3600.0;
@ -337,7 +338,11 @@ sub load_fgfs() {
# skip USA approaches not found in FAA or DAFIFT data
} else {
print "FGFS adding: $icao $rwy\n";
$ILS{$icao . $rwy} = $_;
&safe_add_record( $icao, $rwy, $type_name, $loc_freq, $loc_id,
$loc_hdg, $loc_lat, $loc_lon, $gs_elev,
$gs_angle, $gs_lat, $gs_lon, $dme_lat,
$dme_lon, $om_lat, $om_lon, $mm_lat,
$mm_lon, $im_lat, $im_lon );
}
} else {
print "FGFS discarding: $_\n";