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

Parse "hi" (arrival_hidden/departure_hidden) attributes

parent a8ebed12

lib/Travel/Status/DE/IRIS.pm

+4 −4
Original line number Diff line number Diff line
@@ -585,9 +585,8 @@ sub add_result { 
		$data{route_pre}   = $e_ar->getAttribute('ppth');

		$data{route_start} = $e_ar->getAttribute('pde');

		$data{transfer}    = $e_ar->getAttribute('tra');

		$data{arrival_hidden}   = $e_ar->getAttribute('hi');

		$data{arrival_wing_ids} = $e_ar->getAttribute('wings');



		#$data{unk_ar_hi}        = $e_ar->getAttribute('hi');

	}



	if ($e_dp) {
@@ -597,9 +596,8 @@ sub add_result { 
		$data{route_post}   = $e_dp->getAttribute('ppth');

		$data{route_end}    = $e_dp->getAttribute('pde');

		$data{transfer}     = $e_dp->getAttribute('tra');

		$data{departure_hidden}   = $e_dp->getAttribute('hi');

		$data{departure_wing_ids} = $e_dp->getAttribute('wings');



		#$data{unk_dp_hi}          = $e_dp->getAttribute('hi');

	}



	if ( $data{arrival_wing_ids} ) {
@@ -817,6 +815,7 @@ sub parse_realtime { 
				sched_route_pre => $e_ar->getAttribute('ppth'),

				status          => $e_ar->getAttribute('cs'),

				status_since    => $e_ar->getAttribute('clt'),

				arrival_hidden  => $e_ar->getAttribute('hi'),



				# TODO ps='a' -> rerouted and normally unscheduled train?

			);
@@ -829,6 +828,7 @@ sub parse_realtime { 
				route_post        => $e_dp->getAttribute('cpth'),

				sched_route_post  => $e_dp->getAttribute('ppth'),

				status            => $e_dp->getAttribute('cs'),

				departure_hidden  => $e_dp->getAttribute('hi'),

			);

		}

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

+20 −2
Original line number Diff line number Diff line
@@ -130,9 +130,9 @@ my %translation = ( 
);



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

	qw(arrival arrival_delay arrival_has_realtime arrival_is_additional arrival_is_cancelled

	qw(arrival arrival_delay arrival_has_realtime arrival_is_additional arrival_is_cancelled arrival_hidden

	  date datetime delay

	  departure departure_delay departure_has_realtime departure_is_additional departure_is_cancelled

	  departure departure_delay departure_has_realtime departure_is_additional departure_is_cancelled departure_hidden

	  ds100 has_realtime is_transfer is_unscheduled is_wing

	  line_no old_train_id old_train_no operator platform raw_id

	  realtime_xml route_start route_end
@@ -278,6 +278,10 @@ sub set_ar { 
		$self->{arrival_is_cancelled}  = 0;

	}



	if ( $attrib{arrival_hidden} ) {

		$self->{arrival_hidden} = $attrib{arrival_hidden};

	}



	# unscheduled arrivals may not appear in the plan, but we do need to

	# know their planned arrival time

	if ( $attrib{plan_arrival_ts} ) {
@@ -343,6 +347,10 @@ sub set_dp { 
		$self->{departure_is_cancelled}  = 0;

	}



	if ( $attrib{departure_hidden} ) {

		$self->{departure_hidden} = $attrib{departure_hidden};

	}



	# unscheduled arrivals may not appear in the plan, but we do need to

	# know their planned arrival time

	if ( $attrib{plan_departure_ts} ) {
@@ -911,6 +919,11 @@ no scheduled arrival time (e.g. due to diversions). May be negative. 


True if "arrival" is based on real-time data.



=item $result->arrival_hidden



True if arrival should not be displayed to customers.

This often indicates an entry-only stop near the beginning of a train's journey.



=item $result->arrival_is_additional



True if the arrival at this stop is an additional (unscheduled) event, i.e.,
@@ -984,6 +997,11 @@ no scheduled departure time (e.g. due to diversions). May be negative. 


True if "departure" is based on real-time data.



=item $result->departure_hidden



True if departure should not be displayed to customers.

This often indicates an exit-only stop near the end of a train's journey.



=item $result->departure_is_additional



True if the train's departure at this stop is unscheduled (additional), i.e.,