+# update the glide slope elevation of the record (but only if it is 0)
+sub maybe_update_gs_elev() {
+ my( $key ) = shift;
+ my( $new_gs_elev ) = shift;
+
+ my( $record );
+
+ if ( $ILS{$key} ne "" ) {
+ my( $type_code, $type_name, $apt_id, $rwy, $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 ) = split( /\s+/, $ILS{$key} );
+ if ( $gs_elev == 0 ) {
+ print "Updating gs elev: $apt_id $rwy: $gs_elev -> $new_gs_elev\n";
+ $gs_elev = $new_gs_elev;
+ &update_record( $apt_id, $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 {
+ die "Error, trying to update $key which doesn't exist\n";
+ }
+}
+
+