wagon order: indicate closed wagons
This commit is contained in:
parent
8bbe698952
commit
fe0dbf7588
2 changed files with 7 additions and 2 deletions
2
cpanfile
2
cpanfile
|
@ -14,7 +14,7 @@ requires 'Mojolicious::Plugin::OAuth2';
|
|||
requires 'Mojo::Pg';
|
||||
requires 'Text::CSV';
|
||||
requires 'Text::Markdown';
|
||||
requires 'Travel::Status::DE::DBWagenreihung';
|
||||
requires 'Travel::Status::DE::DBWagenreihung', '0.12';
|
||||
requires 'Travel::Status::DE::HAFAS', '>= 5.03';
|
||||
requires 'Travel::Status::DE::IRIS';
|
||||
requires 'UUID::Tiny';
|
||||
|
|
|
@ -84,7 +84,12 @@
|
|||
% if (defined $gi and $gi != $wagon->group_index) {
|
||||
•
|
||||
% }
|
||||
%= $wagon->number || ($wagon->type =~ m{AB} ? '½' : $wagon->type =~ m{A} ? '1.' : $wagon->type =~ m{B} ? '2.' : $wagon->type )
|
||||
% if ($wagon->is_closed) {
|
||||
X
|
||||
% }
|
||||
% else {
|
||||
%= $wagon->number || ($wagon->type =~ m{AB} ? '½' : $wagon->type =~ m{A} ? '1.' : $wagon->type =~ m{B} ? '2.' : $wagon->type )
|
||||
% }
|
||||
% }
|
||||
% $gi = $wagon->group_index;
|
||||
% }
|
||||
|
|
Loading…
Reference in a new issue