From 6e1e43b47b48bbbfdff7c431692138e5e0269cbd Mon Sep 17 00:00:00 2001
From: curt <curt>
Date: Thu, 17 Apr 2003 20:57:36 +0000
Subject: [PATCH] Remove possilbe trailing "/" from runway numbers in FAA data.
 Use add_record() routine for FGFS/X-Plane data.

---
 scripts/perl/dafif/dafift2ils.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/scripts/perl/dafif/dafift2ils.pl b/scripts/perl/dafif/dafift2ils.pl
index 1e0b55989..8aceecde1 100755
--- a/scripts/perl/dafif/dafift2ils.pl
+++ b/scripts/perl/dafif/dafift2ils.pl
@@ -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";
-- 
2.39.5