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

Fix special cases like "nicht umsteigen, Weiterfahrt [...]"

parent d47e303f

bin/efa

+7 −0
Original line number Diff line number Diff line
@@ -52,6 +52,13 @@ sub display_connection { 


	for my $con (@{$con_parts}) {



		if (@{$con} < 5) {

			foreach my $str (@{$con}) {

				say "# $str";

			}

			next;

		}



		if ($con->[0] !~ / \d{2} : \d{2} /ox) {

			splice(@{$con}, 0, 0, q{});

			splice(@{$con}, 4, 0, q{});