diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-11-15 21:13:41 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-11-15 21:13:41 +0100 |
| commit | 5f42920c86ec1cf51eccd8970757909308fd7617 (patch) | |
| tree | 73c5c5359ed3c5dfa91d209c68d7e9d88648227e /lib | |
| parent | ab108ee2da48b4e234c73ea3712e34b566759c0f (diff) | |
Location: expose admin_id as well
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/Location.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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}; |