% 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->train_no ne $train_no) {
% $extra_class .= ' nondestwagon';
% }
% if ($exit_dir ne 'right') {
% if (my $img = wagon_image($wagon->train_subtype // $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 // $type // '?', $wagon->type, $wagon->uic_id)) {
<%= $wagon->type %>
% }
% else {
%= $wagon->type
% }
% }