Unverified Commit 88cfaec8 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

find-missing: skip SEV stations

parent f97c531d

share/find-missing

+3 −0
Original line number Diff line number Diff line
@@ -44,6 +44,9 @@ my $status = Travel::Status::DE::IRIS->new( 
my @missing;



for my $result ( $status->results ) {

	if ( $result->type eq 'Bus' ) {

		next;

	}

	for my $name ( $result->route_pre, $result->route_post ) {

		my @matches

		  = Travel::Status::DE::IRIS::Stations::get_station_by_name($name);