% my $bg = '';
% my $extra_class = '';
% if ($wagon->is_first_class) {
% $extra_class .= ' firstclass';
% }
% if ($wagon->is_locomotive or $wagon->is_powercar) {
% $extra_class .= ' powercar';
% }
% if ($wagon->is_closed) {
% $extra_class .= ' closed';
% }
% if ($wagon->train_no ne $train_no) {
% $extra_class .= ' nondestwagon';
% }
% if ($exit_dir ne 'right') {
% if (my $img = wagon_image($wagon->train_subtype // $wr->train_type // '?', $wagon->type, $wagon->uic_id)) {
<%= $wagon->type %>
% }
% else {
%= $wagon->type
% }
% }
% my $uic_id = $wagon->uic_id;
% if (length($uic_id) != 12) {
<%= $uic_id %>
% }
% elsif (substr($uic_id, 0, 2) >= 90) {
<%= substr($uic_id, 0, 2) %><%= substr($uic_id, 2, 2) %><%= substr($uic_id, 4, 1) %><%= substr($uic_id, 5, 3) %><%= substr($uic_id, 8, 3) %><%= substr($uic_id, 11) %>
% }
% else {
<%= substr($uic_id, 0, 2) %><%= substr($uic_id, 2, 2) %><%= substr($uic_id, 4, 2) %><%= substr($uic_id, 6, 2) %><%= substr($uic_id, 8, 3) %><%= substr($uic_id, 11) %>
% }
% if ($exit_dir eq 'right') {
% if (my $img = wagon_image($wagon->train_subtype // $wr->train_type // '?', $wagon->type, $wagon->uic_id)) {
<%= $wagon->type %>
% }
% else {
%= $wagon->type
% }
% }
% if ($multi and $first) {
% if (scalar $wr->train_nos > 1) {
<%= $wr->train_type %> <%= ($wr->groups)[$wagon->group_index]->train_no %>
% }
% if (scalar $wr->destinations > 1) {
→ <%= $wr->{data}{istformation}{allFahrzeuggruppe}[$wagon->group_index]{zielbetriebsstellename} %>
% }
% if ($multi and ($wr->groups)[$wagon->group_index]->desc_short) {
<%= ($wr->groups)[$wagon->group_index]->desc_short %>
% }
% }