From 5f42920c86ec1cf51eccd8970757909308fd7617 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sat, 15 Nov 2025 21:13:41 +0100 Subject: Location: expose admin_id as well --- lib/Travel/Status/DE/DBRIS/Location.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Travel/Status/DE/DBRIS/Location.pm b/lib/Travel/Status/DE/DBRIS/Location.pm index 0e65bde..0883437 100644 --- a/lib/Travel/Status/DE/DBRIS/Location.pm +++ b/lib/Travel/Status/DE/DBRIS/Location.pm @@ -9,7 +9,7 @@ use parent 'Class::Accessor'; our $VERSION = '0.16'; Travel::Status::DE::DBRIS::Location->mk_ro_accessors( - qw(eva id lat lon name products type is_cancelled is_additional is_separation display_priority + qw(eva id lat lon name admin_id products type is_cancelled is_additional is_separation display_priority dep arr sched_dep sched_arr rt_dep rt_arr arr_delay dep_delay delay platform sched_platform rt_platform occupancy_first occupancy_second occupancy @@ -73,6 +73,10 @@ sub new { $ref->{delay} = $ref->{arr_delay} // $ref->{dep_delay}; + if ( $json->{adminID} ) { + $ref->{admin_id} = $json->{adminID}; + } + for my $occupancy ( @{ $json->{auslastungsmeldungen} // [] } ) { if ( $occupancy->{klasse} eq 'KLASSE_1' ) { $ref->{occupancy_first} = $occupancy->{stufe}; -- cgit v1.2.3