Commit 4a74fe25 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add is_unscheduled accessor

parent 8327f304

bin/db-iris

+1 −1
Original line number Diff line number Diff line
@@ -368,7 +368,7 @@ for my $d ( $status->results() ) { 
	push(

		@output,

		[

			$timestr, $d->train,

			$timestr, $d->train . ($d->is_unscheduled ? ' !' : q{}),

			$edata{route} ? join( q{  }, $d->route_interesting ) : q{},

			$d->route_end, $platformstr // q{}, $d

		]

lib/Travel/Status/DE/IRIS.pm

+4 −1
Original line number Diff line number Diff line
@@ -231,6 +231,9 @@ sub get_realtime { 


		if ( not $result ) {

			$result = $self->add_result( $station, $s );

			if ($result) {

				$result->set_unscheduled(1);

			}

		}

		if ( not $result ) {

			next;

lib/Travel/Status/DE/IRIS/Result.pm

+20 −5
Original line number Diff line number Diff line
@@ -95,11 +95,12 @@ my %translation = ( 
);



Travel::Status::DE::IRIS::Result->mk_ro_accessors(

	qw(arrival classes date datetime delay departure is_cancelled is_transfer is_wing

	  line_no train_no_transfer old_train_id old_train_no platform raw_id

	  realtime_xml route_start route_end sched_arrival sched_departure

	  sched_platform sched_route_start sched_route_end start stop_no time

	  train_id train_no transfer type unknown_t unknown_o wing_id)

	qw(arrival classes date datetime delay departure is_cancelled is_transfer

	  is_unscheduled is_wing line_no train_no_transfer old_train_id

	  old_train_no platform raw_id realtime_xml route_start route_end

	  sched_arrival sched_departure sched_platform sched_route_start

	  sched_route_end start stop_no time train_id train_no transfer type

	  unknown_t unknown_o wing_id)

);



sub new {
@@ -326,6 +327,12 @@ sub set_tl { 
	return $self;

}



sub set_unscheduled {

	my ( $self, $unscheduled ) = @_;



	$self->{is_unscheduled} = $unscheduled;

}



sub add_arrival_wingref {

	my ( $self, $ref ) = @_;
@@ -821,6 +828,14 @@ the results and indicates it by setting B<is_transfer> to a true value. 
In case of a transfer, B<train_id> and B<train_no> are set to the "new"

value, the old ones are available in B<old_train_id> and B<old_train_no>.



=item $result->is_unscheduled



True if the train does not appear in the requested plans. This can happen

because of two reasons: Either the scheduled time and the actual time are so

far apart that it should've arrived/departed long ago, or it really is an

unscheduled train. In that case, it can be a replacement or an additional

train. There is no logic to distinguish these cases yet.



=item $result->is_wing



Returns true if this result is a wing, false otherwise.