copy subway name to subway entrances (subway_entrance_name option)

cfg/default-city.cfg

@@ -89,6 +89,9 @@ make_poi: 1
 #  create address points for interpolation lines
 addr_interpolation: 0 
 
+#  copy subway entrance name from parent relation
+subway_entrance_name: 0
+
 
 
 [Values]

cfg/default.cfg

@@ -89,6 +89,9 @@ make_poi: 1
 #  create address points for interpolation lines
 addr_interpolation: 0 
 
+#  copy subway entrance name from parent relation
+subway_entrance_name: 0
+
 
 
 [Values]

cfg/garmin-mpc.cfg

@@ -83,6 +83,9 @@ make_poi: 1
 #  create address points for interpolation lines
 addr_interpolation: 0 
 
+#  copy subway entrance name from parent relation
+subway_entrance_name: 0
+
 
 
 [Values]

osm2mp.pl

@@ -491,12 +491,26 @@
     printf STDERR "  %d transport stops\n", scalar keys %trstop;
 }
 
-
+# copy subway entrance name from subway station
+if ( $flags->{subway_entrance_name} ) {
+    my $copy_subway_entrance_name_sub = sub {
+        my ($relation_id, $members, $tags) = @_;
+        return if !exists($tags->{name});
+        for my $member ( @$members ) {
+            my ($type, $ref, $role) = @$member{ qw/ type ref role / };
+            my $tag_ref = $osm->get_tags($type => $ref);
+            next if !$tag_ref;
+            if ( exists($tag_ref->{railway}) and ($tag_ref->{railway} eq "subway_entrance") ){
+                $tag_ref->{name} = $tags->{name};
+            }
+        }
+    };
+    $osm->iterate_relations(public_transport => $copy_subway_entrance_name_sub);
+}
 
 my $coast = Coastlines->new( $bound ? $bound->get_points() : [] );
 
 
-
 ##  Process POI nodes
 
 say STDERR "\nProcessing nodes...";