+ # print "Updating (common): $apt_id - $rwy\n";
+ $ILS{$apt_id . $rwy} = $record;
+}
+
+
+# update the $type of the record
+sub update_type() {
+ my( $apt_id ) = shift;
+ my( $rwy ) = shift;
+ my( $new_type ) = shift;
+
+ my( $record );
+
+ if ( $ILS{$apt_id . $rwy} 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{$apt_id . $rwy} );
+ print "Updating type: $apt_id $rwy: $type_name -> $new_type\n";
+ $type_name = $new_type;
+ &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 $apt_id - $rwy which doesn't exist\n";