From c9ea85b0c49e54d849219daf0677fa9235f8f70f Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 24 Jan 2023 19:57:28 +0100 Subject: Journey: add station_uic accessor --- lib/Travel/Status/DE/HAFAS/Journey.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/Travel/Status/DE/HAFAS') diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm index 480ff89..a093f98 100644 --- a/lib/Travel/Status/DE/HAFAS/Journey.pm +++ b/lib/Travel/Status/DE/HAFAS/Journey.pm @@ -15,7 +15,7 @@ our $VERSION = '4.02'; Travel::Status::DE::HAFAS::Journey->mk_ro_accessors( qw(datetime sched_datetime rt_datetime is_cancelled is_partially_cancelled - station platform sched_platform rt_platform operator + station station_uic platform sched_platform rt_platform operator id name type type_long class number line load delay route_end route_start origin destination direction) ); @@ -196,7 +196,8 @@ sub new { bless( $ref, $obj ); if ( $journey->{stbStop} ) { - $ref->{station} = $locL[ $journey->{stbStop}{locX} ]->{name}; + $ref->{station} = $locL[ $journey->{stbStop}{locX} ]->{name}; + $ref->{station_uic} = 0 + $locL[ $journey->{stbStop}{locX} ]->{extId}; $ref->{sched_platform} = $journey->{stbStop}{dPlatfS}; $ref->{rt_platform} = $journey->{stbStop}{dPlatfR}; $ref->{platform} = $ref->{rt_platform} // $ref->{sched_platform}; -- cgit v1.2.3