Commit c9ea85b0 authored by Daniel Friesel's avatar Daniel Friesel
Browse files

Journey: add station_uic accessor

parent b0002a4c

lib/Travel/Status/DE/HAFAS/Journey.pm

+3 −2
Original line number Diff line number Diff line
@@ -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)

);
@@ -197,6 +197,7 @@ sub new { 


	if ( $journey->{stbStop} ) {

		$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};