From 62b68b5010326115fe081fe6388135e17a2b710a Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 4 Jan 2020 18:48:46 +0100 Subject: map ICE train numbers to names where possible --- templates/_wagons.html.ep | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'templates/_wagons.html.ep') diff --git a/templates/_wagons.html.ep b/templates/_wagons.html.ep index 8918273..bfb1b7b 100644 --- a/templates/_wagons.html.ep +++ b/templates/_wagons.html.ep @@ -1,5 +1,11 @@ % for my $wagongroup (@{$wagongroups // []}) { - Wagenverbund <%= $wagongroup->{name} %> von <%= $wagongroup->{from} %> nach <%= $wagongroup->{to} %> als <%= $journey->{type} %> <%= $wagongroup->{no} %>
+ Wagenverbund <%= $wagongroup->{name} %> + % my ($wagon_number) = ($wagongroup->{name} =~ m{ ^ ICE 0* (\d+) $ }x); + % if ($wagon_number and my $group_name = app->ice_name->{$wagon_number}) { + „<%= $group_name %>“ + % } + als <%= $journey->{type} %> <%= $wagongroup->{no} %> + von <%= $wagongroup->{from} %> nach <%= $wagongroup->{to} %>
% for my $wagon (@{$wagongroup->{wagons}}) { % if (length($wagon->{id}) == 12) { <%= substr($wagon->{id}, 0, 2) %><%= substr($wagon->{id}, 2, 2) %><%= substr($wagon->{id}, 4, 1) %><%= substr($wagon->{id}, 5, 3) %><%= substr($wagon->{id}, 8, 3) %><%= substr($wagon->{id}, 11) %> -- cgit v1.2.3