diff options
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 8 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 22 |
2 files changed, 24 insertions, 6 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 3c07e8f..43b5313 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -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'), ); } diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index 9325de5..25abb0a 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -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., |