summaryrefslogtreecommitdiff
path: root/lib/Travel
diff options
context:
space:
mode:
authorDaniel Friesel <daniel.friesel@uos.de>2023-01-24 19:57:28 +0100
committerDaniel Friesel <daniel.friesel@uos.de>2023-01-24 19:57:28 +0100
commitc9ea85b0c49e54d849219daf0677fa9235f8f70f (patch)
tree6fcf1212b9122e239788e083b96da87b01f7f7c6 /lib/Travel
parentb0002a4c9a75a573996c0f4c5544111f3e018077 (diff)
Journey: add station_uic accessor
Diffstat (limited to 'lib/Travel')
-rw-r--r--lib/Travel/Status/DE/HAFAS/Journey.pm5
1 files changed, 3 insertions, 2 deletions
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};