Commit ea5aab03 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

route_interesting: Add .hl.n. (czech main station)

parent b1d57132

lib/Travel/Status/DE/IRIS/Result.pm

+4 −1
Original line number Diff line number Diff line
@@ -683,8 +683,11 @@ sub route_interesting { 
	my ( @via_main, @via_show, $last_stop );

	$max_parts //= 3;



	# Centraal: dutch main station (Hbf in .nl)

	# HB:  swiss main station (Hbf in .ch)

	# hl.n.: czech main station (Hbf in .cz)

	for my $stop (@via) {

		if ( $stop =~ m{ HB $ | Hbf | Centraal | Flughafen }x ) {

		if ( $stop =~ m{ HB $ | hl\.n\. $ | Hbf | Centraal | Flughafen }x ) {

			push( @via_main, $stop );

		}

	}