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

Add API and CLI output for cancelled route parts (delay -9999)

parent db888ca1

bin/efa

+4 −1
Original line number Diff line number Diff line
@@ -214,7 +214,10 @@ sub display_routes { 
sub display_connection {

	my ($c) = @_;



	if ( $c->delay ) {

	if ( $c->is_cancelled ) {

		say '# FAHRT FÄLLT AUS';

	}

	elsif ( $c->delay ) {

		printf( "# +%d,  Plan: %s -> %s\n",

			$c->delay, $c->departure_stime, $c->arrival_stime );

	}

lib/Travel/Routing/DE/EFA/Route/Part.pm

+15 −0
Original line number Diff line number Diff line
@@ -82,6 +82,15 @@ sub footpath_parts { 
	return;

}



sub is_cancelled {

	my ($self) = @_;



	if ( $self->{delay} and $self->{delay} eq '-9999' ) {

		return 1;

	}

	return;

}



# DEPRECATED

sub extra {

	my ($self) = @_;
@@ -287,6 +296,12 @@ connection between two stops), so the B<footpath> accessors contain redundant 
information. Other values such as "BEFORE" may also be returned, but this is

unknown at this point.



=item $part->is_cancelled



Returns true if this part of the route has been cancelled (i.e., the entire

route is probably useless), false otherwise.  For unknown reasons, EFA may

sometimes return routes which contain cancelled departures.



=item $part->regular_notes



Remarks about the line serving this connaction part. Returns a list of