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

skip unknown/invalid sections

parent 78970922

lib/Travel/Status/DE/DBWagenreihung.pm

+3 −0
Original line number Diff line number Diff line
@@ -101,6 +101,9 @@ sub sections { 


	for my $section ( @{ $self->{data}{istformation}{halt}{allSektor} } ) {

		my $pos = $section->{positionamgleis};

		if ( $pos->{startprozent} eq '' or $pos->{endeprozent} eq '' ) {

			next;

		}

		push(

			@{ $self->{sections} },

			Travel::Status::DE::DBWagenreihung::Section->new(