Commit 5fe03ddd authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Filter out realtime results which are >3 hours in the future

parent ad6d5754
Loading
Loading
Loading
Loading
+6 −3
Original line number Diff line number Diff line
@@ -64,9 +64,12 @@ sub new {

	$self->get_realtime;

	@{ $self->{results} }
	  = grep { ( $_->departure // $_->arrival ) >= $self->{datetime} }
	  @{ $self->{results} };
	@{ $self->{results} } = grep {
		my $d
		  = ( $_->departure // $_->arrival )
		  ->subtract_datetime( $self->{datetime} );
		not $d->is_negative and $d->in_units('hours') < 4
	} @{ $self->{results} };

	@{ $self->{results} }
	  = sort { $a->{datetime} <=> $b->{datetime} } @{ $self->{results} };